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ABSTRACT 


TRADES  simulates  cargo  shipment  between  ports  for  two 
modes  of  operation,  commercial  and  military  over-the-beach 
cargo  movement. 

This  event-storing  simulation,  written  in  FORTRAN  IV, 
accepts  (as  input  data)  ports,  itineraries,  cargo  types  and 
quantities,  numbers  of  ship  types,  cargo  transfer  rates,  and 
unit  costs.  The  execution  routines  compute  the  time-distance- 
tonnage  relationships  for  stated  input  data  to  establish  cargo 
loaded,  transloaded,  and  off-loaded  at  each  port;  queue 
characteristics;  utilization  of  ships;  and  system  operating 
costs.  The  output  can  provide  entire  histographic  summaries 
at  specified  simulation  intervals  in  desired  formats  for 
information  at  port  for  the  entire  system. 

This  report  describes  the  model's  logic  elements  and  all 
the  inputs  needed  by  the  TRADES  model. 


ADMINISTRATIVE  INFORMATION 


The  TRADES  model  was  developed  for  use  in  the  Merchant  Shipping  and  Transfer 
Craft  Requirements  in  Support  of  Amphibious  Operations  project,  initiated  by  the 
Research  and  Technology  Division  of  the  Naval  Supply  Systems  Command  (NAVSUP  043). 
Technical  guidance  was  provided  by  the  Planning  and  Studies  Division,  Development 
Center,  Marine  Corps  Development  and  Evaluation  Command.  The  David  W.  Taylor 
Naval  Ship  Research  and  Development  Center  (DTNSRDC)  undertook  the  project  in 
FY  77.  The  Logistics  Division  (Code  187)  of  the  Computation,  Mathematics  and 
Logistics  Department  was  the  performing  organization. 
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INTRODUCTION 


Current  Department  of  Defense  contingency  military  planning  includes  plans 
for  amphibious  operations  involving  the  establishment  of  beachheads  in  overseas 
arenas.  Once  such  a  beachhead  is  established,  U.S.  Forces  operating  from  the 
beachhead  area,  or  Amphibious  Operations  Area  (AOA) ,  require  continuing  logisti¬ 
cal  support.  Such  support  w^'-ld  be  provided  by  the  Military  Sealift  Command 
(MSC) ,  utilizing  ships  directly  under  its  command  and  merchant  ships  it  has 
under  contract  which  may  be  called  into  service  when  required  under  military 
contingencies  as  contractually  specified. 

The  specific  operational  characteristics  of  the  MSC  fleet  need  to  be  defined 
as  accurately  as  possible  before  its  actual  deployment.  A  digital  computer  simu¬ 
lation,  TRADES,  has  been  written  for  this  purpose.  Although  TRADES  can  simulate 
all  phases  of  cargo  handling,  including  cargo  generations,  ship  loading,  overseas 
transport,  ship  unloading,  ship-to-shore  cargo  transportation,  and  offloading  of 
cargo  at  the  beachhead,  the  emphasis  is  on  the  ship-to-shore  phase  of  the 
operation. 


BACKGROUND 

At  its  start  the  project  on  Merchant  Shipping  and  Transfer  Craft  Require¬ 
ments  for  Support  of  Amphibious  Operations  used  the  Requirements  Evaluated  Against 
Cargo  Transportation  (REACT)  model  developed  by  Research  Associates  Incorporated 
for  the  Integrated  Sealift  Study.  REACT  simulates  the  movement  of  ships  trans¬ 
porting  cargo  among  a  group  of  ports,  and  its  use  assumes  that  port  facilities 
are  available.  However,  it  is  possible  that  port  facilities  would  be  unavailable, 
necessitating  the  delivery  of  cargo  over-the-beach.  The  ships  would  then  have  to 
be  unloaded  offshore  and  the  cargo  delivered  ashore  by  transfer  craft.  The 
TRADES  Model,  developed  for  use  in  the  Merchant  Ship  Project*  to  determine 
merchant  ship  and  transfer  craft  force  levels  for  various  scenarios,  was  used  to 
evaluate  ship  and  transfer  craft  requirements  by  simulating  their  operations. 


*Gray,  M.,  "Mechant  Shipping  and  Transfer  Craft  Requirements  in  Support  of 
Amphibious  Operations,"  DTNSRDC  Report  77-0039  (Apr  1977). 
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MODEL  DESCRIPTION 


SHIPS 

This  simulation  accepts  as  input  ports,  number  of  ships  and  their  types, 
cargo  types  and  quantities,  cargo  transfer  rates,  and  unit  costs.  The  output  can 
provide  entire  histographic  summaries  depicting  shipping  activities  and  cargo 
movement  at  specified  simulation  intervals  in  desired  formats. 

The  basic  role  of  a  ship  in  the  simulation  is  to  carry  cargo  from  ports  of 
origin  to  destinations.  Each  ship  in  the  simulation  has  two  characteristics,  its 
type  (physical  description),  and  its  mode  of  operation  (transport  pattern).  Ship 
types  and  transport  patterns  (i.e,  itinerary  or  non-itinerary  port  schedules) 
determine  ship  utilization  and  cargo  delivery. 

Ship  Types 

A  ship's  type  is  defined  by  its  physical  characteristics,  cargo  preferences, 
and  berthing  requirements.  The  following  characteristics  determine  a  ship  type: 
o  Speed 

o  Shipping  capacity  -  weight  and  volume 
o  Draft 

o  Transfer  systems 
o  Berthing  facility  preference 

The  ship  types  considered  by  TRADES  are  roll-on/ roll-off  (RORO)  ships, 
barges  or  lighter  carriers  (LASH  ships),  tanker  ships,  break  bulk  (BB)  ships, 
and  container  ships. 

Itinerary  Ships 

An  itinerary  ship  is  one  assigned  to  a  predetermined  (set  by  input)  port 
schedule,  called  an  itinerary,  which  is  an  ordered  list  of  ports.  Itinerary 
ships  service  all  ports  on  their  itinerary  in  the  order  in  which  the  ports 
appear.  Because  cargo  does  not  control  the  operation  of  itinerary  ships,  it  is 
possible  for  a  ship  to  enter  and  leave  a  port  on  its  itinerary  without  transfer¬ 
ring  any  cargo. 
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EXAMPLE:  A  ship  has  an  itinerary  of  ports  A,  B,  C,  and  D.  The  ship  starts  its 
service  cycle  at  port  A  and  services  port  B,  C,  and  D  in  that  order.  When  the  ship 
has  completed  service  at  the  last  port  on  the  itinerary,  port  D,  it  returns  to 
port  A,  and  continues  its  service  cycle. 


Non-Itinerary  Ships 

A  non-itinerary  ship  is  one  whose  operation  in  the  simulation  is  determined 
by  the  quantity  of  cargo  to  be  moved  and  the  space  required  to  move  that  cargo. 
Non-itinerary  ships  enter  a  ship  pool  at  their  respective  availability  times. 
These  ships  leave  the  pool  only  when  they  are  needed  to  move  cargo  and  return  to 
the  pool  when  they  are  not  needed.  The  ship  pool  is  discussed  later.  The 
schedule  of  a  non-itinerary  ship  is  determined  by  the  destination  ports  of  the 
cargo  the  ship  can  carry. 


EXAMPLE:  A  ship  is  servicing  port  A  and  is  equipped  to  handle  the  following 
waiting  cargo: 

CARGO  COMMODITY  TYPE  DESTINATION  PORT 

1  B 

2  C 

3  D 

4  E 


The  following  table  shows  the  distances  in  nautical  miles  between  ports 
A,  B,  C,  D,  and  E.  The  quantities  of  cargo  waiting  at  a  port  determine  the 
schedule  of  a  non-itinerary  ship. 

DISTANCE  TABLE 


A 

B 

C 

D 

E 

A 

- 

100 

10 

50 

150 

B 

100 

- 

50 

75 

100 

C 

10 

50 

- 

100 

110 

D 

50 

75 

100 

- 

105 

E 

150 

100 

110 

105 

— 
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The  ship  will  travel  to  the  nearest  port  for  which  it  has  cargo.  The  port  schedule 
of  this  non-itinerary  ship  is  thus  A  to  C  (distance  10),  C  to  B  (50),  B  to  D  (75), 

D  to  E  (105).  If  there  is  cargo  waiting  for  shipment  at  ports  B  through  E,  TRADES 
will  adjust  the  schedule  accordingly. 

Theater  Operations 

A  theater  is  a  group  of  ports  to  be  considered  as  a  unit.  An  intratheater 
ship  loads  cargo  only  for  those  ports  which  are  in  the  same  theater  as  the  port 
generating  the  cargo.  The  ship  then  sails  for  the  nearest  port  for  which  it  has 
cargo.  If  it  has  no  cargo  aboard  and  there  is  any  intratheater  cargo  at  any  other 
port  in  the  same  theater,  the  ship  will  sail  to  the  nearest  port  with  the  largest 
amount  of  waiting  cargo.  If  no  port  has  intratheater  cargo  awaiting  shipment,  the 
ship  joins  the  ship  pool  at  its  home  port. 

Ships  assigned  to  intertheater  operation  load  cargo  generated  in  one  theater 
for  delivery  to  another  theater.  If  its  home  and  delivery  theaters  are  the  same, 
an  intertheater  ship  can  operate  as  an  intratheater  ship.  Intertheater  ships  have 
the  following  operation  options  which  are  set  by  input: 

o  Load  cargo  in  home  theater  for  delivery  in  another 
theater  and  return  to  home  theater  for  delivery  in 
home  theater 

o  Load  cargo  in  home  theater  for  delivery  in  home  theater 
o  Load  cargo  in  present  theater  for  delivery  in  home  theater. 

Both  intratheater  and  intertheater  ships  search  for  cargo  to  be  loaded 
according  to  the  following  criteria: 

o  Is  the  cargo  acceptable  for  this  ship? 
o  Is  the  depth  of  the  destination  port  compatible  with 
the  ship  draft? 

o  Does  the  destination  port  have  acceptable  berthing 
and  transfer  facilities? 

Both  intratheater  and  intertheater  ships  must  maintain  a  minimum  utilization 
of  volume  and  weight.  If  the  current  percentage  of  utilized  volume  and  weight 
is  less  than  a  minimum  percentage  set  by  input  and  no  other  acceptable  cargo  will 
be  available  at  that  port  for  delivery  within  a  specified  time,  the  ship  searches 
the  other  ports  in  i':s  home/present  theater  for  cargo  destined  for  the  delivery 
theater.  If  it  finds  an  amount  of  acceptable  cargo  greater  than  or  equal  t<  an 
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amount  specified  by  input,  the  ship  sails  for  that  port  to  load  that  cargo. 

If  no  such  port  is  found,  a  check  is  made  to  determine  whether  the  ship  has  cargo 
aboard.  If  there  is  no  cargo  aboard,  the  ship  retires  from  operations  and  joins 
the  ship  pool  at  a  port  determined  by  input.  If  the  ship  has  any  cargo  at  all,  it 
sails  to  the  ports  for  which  it  has  cargo.  The  closest  port  for  which  the  ship 
has  cargo  is  selected  as  the  next  port  of  call. 

Ship  Pool 

Ships  enter  the  pool  for  one  of  the  following  reasons: 

o  Ships  are  initially  placed  in  the  pool  at  their  availa¬ 
bility  times. 

o  Ships  which  have  been  previously  in  normal  operation 
enter  the  pool  because  no  acceptable  cargo  is  available 
for  delivery. 

o  Enough  ships  are  already  in  service  to  transport  the  backlogged 
cargo.  Ships  entering  the  pool  for  this  reason  must  remain  in 
the  pool  for  a  period  of  time  set  by  input. 

When  a  ship  is  selected  from  the  pool  to  resume  operations,  it  is  made 
available  at  its  present  port.  If  the  first  demand  port  is  not  the  present  port, 
the  ship  is  available  at  the  current  time  plus  the  travel  time  to  the  first 
service  port. 

PORTS 

A  port  is  simulated  by  this  model  in  terms  of  berths  and  transfer  systems. 
Both  import  and  export  ships  at  the  port  utilize  these  systems  in  their  cargo 
movement.  Each  berth  in  the  simulation  is  described  by  its  type.  The  berth  or 
facility  type  is  defined  by  the  general  type(s)  of  ships,  such  as  general 
freighter,  non-sustaining  container  ship,  etc.,  that  can  be  accommodated  at  the 
berth.  Additional  descriptors  for  each  type  of  facility  define  the  transfer 
systems  available  at  the  facility  to  perform  cargo  operations  required  by  the 
ship.  The  cargo  handling  rates  reflect  physical  characteristics  of  the  berths 
and  material  handling  equipment. 


Berth  and  Queue  Operations 

When  a  ship  reaches  a  port.  It  must  determine  which  type  of  facility  to 
enter.  Since  preferred  facility  types  are  input,  a  check  determines  whether  a 
first  or  second  preference  is  available  for  the  ship.  If  the  first  preference  is 
available,  the  ship  enters.  If  the  first  preference  is  occupied  and  a  second 
preference  is  given  and  is  available,  the  ship  enters  the  second  preference 
facility.  If  the  first  and  second  preferences  are  not  available,  the  ship  joins 
the  queue  (waiting  line)  to  await  service. 

When  a  ship  is  in  a  queue,  it  is  waiting  for  a  specific  type  of  facility  in  a 
particular  port.  If  more  than  one  ship  in  the  queue  is  waiting  for  the  same  type 
of  port  facility,  the  ships  are  removed  in  the  order  in  which  they  entered  the 
queue.  As  facilities  become  available,  each  ship  in  the  queue  leaves  the  queue 
and  enters  the  first  available  facility  which  can  accommodate  it.  Each  time  a 
ship  leaves  a  port,  a  check  determines  whether  any  other  ship  in  the  queue  is 
waiting  for  the  facility  type  just  vacated.  If  such  a  ship  is  found,  it  leaves 
the  queue  and  moves  into  the  facility  and  its  cargo  transfer  operations  begin. 

The  ship  queue  is  updated  each  time  a  ship  enters  or  leaves  a  port.’ 

Over-the-Beach  Operations 

When  a  ship  arrives  in  the  AOA,  its  unloading  is  simulated.  The  time  taken 
to  unload  the  cargo  is  computed.  The  numbers  of  transfer  craft  and  unloading 
facilities  needed  are  added  to  the  total  numbers  currently  in  use  and  sub¬ 
tracted  from  the  total  numbers  still  available  for  use  by  newly  arriving  ships. 

If  the  required  craft  and  facilities  are  not  available,  the  ship  is  put  into  a 
queue  until  such  time  as  it  can  be  accommodated. 

As  the  ship  is  unloaded,  its  cargo  is  added  to  the  total  amount  of  cargo 
previously  unloaded,  by  type,  and  the  total  amount  of  cargo  of  all  types  is  also 
calculated.  Loading  and  unloading  operations  for  each  ship  type  considered  by 
TRADES  are  described  in  the  following  paragraphs. 

Roll-on/Roll-off  Ships. 

Roll-on/Roll-off  (Ro/Ro)  ships  carry  wheeled  vehicles.  Only  causeway  ferries 
are  required  for  unloading  Ro/Ro  ships.  When  the  Ro/Ro  ship  arrives  in  the  AOA, 
it  begins  unloading  as  soon  as  the  causeway  ferries  are  available.  If  causeway 
ferries  are  not  immediately  available,  the  Ro/Ro  ship  waits  in  a  queue  until  they 


are.  Wheeled  cargo  rolls  off  the  ship  onto  the  causeway  ferries,  is  transported 

to  shore,  and  there  rolls  off  the  causeway  ferries. 

Barge  or  Lighter  Carriers.  Barge  or  lighter  carriers  (LASH  ships)  carry  their 
cargo  prepacked  aboard  barges  which  the  ship  discharges  into  the  water  using  its 
own  unloading  equipment.  After  the  barges  have  been  lowered  into  the  water,  the 
ship  is  considered  to  be  unloaded  and  the  cargo  delivered.  Since  the  LASH  ship 
unloads  independently  of  any  external  facilities,  it  begins  unloading  immediately 
on  arrival  in  the  AOA  and  is  never  required  to  wait  in  a  queue  prior  to  unloading. 

Tanker  Ships.  Tanker  ships  transport  bulk  POL  (petroleum,  oil  and  lubricants) . 

In  order  to  unload,  they  must  be  attached  to  a  pipeline  leading  ashore.  The  POL 

is  men  pumped  from  the  ship  to  a  storage  area  on  shore.  If  a  pipeline  is  not 

available  upon  arrival  of  the  tanker  in  the  AOA,  the  tanker  will  be  put  into  a 
queue  until  a  pipeline  is  available. 

Break  Bulk  Ships.  If  the  ship  is  a  break  bulk  (BB)  ship,  unloading  begins  only 
if  the  required  ship-to-shore  transfer  craft  (lighters  or  causeway  ferries)  and 
the  required  shoreside  unloading  facilities  (forklifts)  are  available.  If  the 
required  transfer  craft  and  shoreside  unloading  facilities  are  not  available,  the 
ship  is  put  into  a  queue  until  transfer  craft  and  unloading  facilities  are 
available.  Throughout  the  simulation,  all  transfer  craft  and  facilities  are  made 
available  to  queued  ships  on  a  first-come,  first-served  basis. 

Container  ships.  When  a  container  ship  arrives  in  the  AOA,  a  check  is  made  on 
the  availability  of  support  equipment  needed  to  unload  the  ship  and  transport  its 
cargo  ashore.  An  unloading  platform,  normally  consisting  of  a  crane  mounted 
aboard  a  barge,  is  required  to  move  containers  from  the  ship  onto  a  transfer 
craft.  The  transfer  craft  may  be  either  a  lighter  or  a  causeway  ferry.  As  the 
transfer  craft  arrive  at  the  shore,  shoreside  cranes  unload  the  containers. 
Unloading  of  the  container  ship  begins  only  when  the  unloading  platform,  ship-to- 
shore  transfer  craft,  and  shoreside  cranes  are  available;  otherwise,  the  con¬ 
tainer  ship  is  placed  in  a  queue  until  the  needed  equipment  becomes  available. 
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After  the  3hip  Is  completely  unloaded,  it  departs  for  its  next  port,  and  the 
transfer  craft  and  unloading  facilities  which  it  used  are  deleted  from  the  lists 
of  crafts  and  facilities  currently  in  use. 

CARGO 

Cargo  Generation 

Cargo  generation  means  that  a  certain  type  and  quantity  of  cargo  is  made 
available  at  a  specific  time  and  at  a  specific  port  to  be  delivered  to  some  other 
specified  port.  Cargo  requirements  refer  to  the  quantity  of  cargo  that  must  be 
carried  from  port  of  embarkation  to  port  of  debarkation.  In  general,  the  simula¬ 
tion  moves  generated  cargo  using  the  transportation  resources  available. 

To  generate  cargo,  the  user  must  translate  cargo  items  (household  goodo, 
munition,  etc.)  into  cargo  generation  terminology  which  includes: 

o  Cargo  type  (e.g.,  ammunition,  chill  and  freeze,  general, 
vehicles,  etc.) 

o  Time  interval  and  amount  of  cargo  to  be  generated  at  each 
interval 

o  Ports  which  generate  cargo 
o  Ports  to  which  cargo  is  to  be  delivered 
Cargo  is  generated  for  delivery  by  an  input  time-phased  schedule.  The  input 
factors  which  control  the  schedule  and  the  amount  of  cargo  for  each  generation 
include: 

o  Frequency  of  generation 
o  Time  of  initial  generation 

o  Statistical  distribution  curve  type  which  determines  the  quantity 
of  cargo  generated. 

Cargo  is  generated  at  most  once  every  simulation  day. 

Cargo  Handling  Rates 

The  rate  at  which  cargo  is  loaded  or  discharged  from  a  ship  is  a  function 
of  the  type  of  berthing  facility,  the  type  of  transfer  system  used,  and  the  type 
of  cargo  being  transferred.  This  rate  is  input  for  each  combination  allowed 
(maximum  of  six  types  of  berthing  facilities,  six  transfer  systems,  and  eight 
cargo  types)  . 


I 

J 
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In  this  simulation,  provision  is  made  for  adjusting  of  transfer  rates  (base 
rates)  by  other  factors  which  affect  cargo  handling.  Even  when  all  factors 
appear  to  be  the  same,  ports  may  have  different  handling  rates.  The  base  rate  is 
modified  by  the  input  factor  associated  with  the  port  at  which  the  ship  is  berthed. 
The  loading  and  discharging  operations  are  assumed  to  require  the  same  amount  of 
time  for  operations  performed  using  the  same  berth  type  and  transfer  device  type. 
After  the  correct  rate  has  been  determined  for  a  given  amount  of  cargo,  the  time 
required  to  complete  cargo  handling  is  computed  as  a  f-unction  of  that  rate  and 
the  amount  of  cargo  to  be  moved.  This  time  represents  only  the  time  required  to 
load/unload  the  cargo.  The  time  required  to  move  cargo  between  dock  and  holding 
area  is  not  considered. 

SIMULATION  LOGIC  \ 


TRADES  is  an  event  storing  simulation.  Such  a  model  is  based  on  the  sequen¬ 
tial  processing  of  a  list  of  procedures,  each  of  which  occurs  at  a  stated  time.. 
Such  procedures  are  called  events.  Initial  events  are  placed  on  the  list 
(stored)  at  the  beginning  of  the  simulation,  and  they  in  turn  store  the  same  type 
of  event  or  other  events  on  the  list. 

EXAMPLE:  The  following  initial  events  are  placed  on  the  list  for  processing: 
o  Generate  cargo  at  time  ■  1.00  day 
o  Ship  arrives  at  port  at  time  =  1.50  days 
o  Terminate  run  at  time  =  7.00  days 


A  Generate  Cargo  event  is  stored  for  each  day  of  the  simulation;  the  times 
at  which  the  event  will  occur  are  thus  1.00,  2.00,  3.00,  etc.  Arrival  of  a  ship 
at  a  port  establishes  the  unloading  and  loading  cycles  and  the  selection  of  the 
next  port  of  call.  The  following  events  are  added  to  the  event  list: 

TIME  (Day)  EVENT  LIST 

1.50  Arrival  at  port  (.50  to  enter) 

2.00  Unloading  of  ship  (if  one  day  to  unload) 

3.00  Loading  of  ship 

5.50  Arrival  at  next  port  if  1.00  day  for  load  +  .50 
day  for  transit  to  next  port 
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Table  1  shows  a  complete  event  list  and  Figure  1,  Logic  Flowchart,  shows  the 
inter-relation  of  events  and  their  storing  sequence* 


TABLE  1  -  COMPLETE  EVENT  LIST 


TIME  (DAYS) 

EVENT 

1.00 

Cargo  generation 

1.50 

Arrival  of  ship 

2.00 

Cargo  generation 

2.00 

Unloading  cycle  for  this  ship 

3.00 

Cargo  generation 

3.00 

Loading  cycle  for  this  ship 

4.00 

Cargo  generation 

5.00 

Cargo  generation 

5.50 

Arrival  of  ship  at  next  port  of  call 

6.00 

Cargo  generation 

6.00 

Unloading  cycle  for  this  ship 

7.00 

End  game 
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INPUT 


This  section  describes  the  input  necessary  to  run  TRADES.  Input  parameters 
are  grouped  with  respect  to  cargo,  ship,  and  port  descriptors. 

Itinerary  Card  1  (ITN1). 

ITN1  indicates  the  numbers  of  itineraries  to  be  used  in  the  simulation. 

If  ITN1  is  blank,  ITN2  cards  are  not  used. 


Variable 

Columns 

Format 

Description 

NITIN 

1-3 

13 

Number  of  itineraries  in  the 
simulation 

KK 

4-6 

13 

If  KK=1,  only  one  iteration 
is  made.  If  KK=7,  the  number 
of  iterations  is  determined 
by  SHTFLM 

Itinerary  Cards  2  (ITN2). 

ITN2  gives  the  itineraries,  i.e.,  lists  of  ports  to  be  serviced  in  order  of 
encounter.  The  maximum  number  of  itineraries  is  10,  with  a  maximum  of  10  ports 
per  itinerary. 


Variable 

Columns 

Format 

Description 

P0RT1 , . . . , PORTIO 

1-30 

1013 

Ports  to  be  serviced  in 
given  order 

Run  Identification  Card  (RDENT). 

RDENT  is  a  72-column  alphanumeric  code  describing  the  run 


General  Information  Card  (GEN). 

GEN  gives  the  values  of  variables  necessary  to  execute  the  simulation. 


Variable 

Columns 

Format 

Description 

NSHIPS 

1-9 

19 

Number  of  ships  (1  to  400) 

NSTYP 

10  -  18 

19 

Number  of  ship  types 

(1  to  30) 

NNPORT 

19  -  27 

19 

Number  of  ports  (1  to  30) 

NFACT 

28  -  36 

19 

Number  of  facility  types 

(1  to  6) 

NTEA 

37  -  45 

19 

Number  of  theaters  (1  to  6) 

IOUT 

46  -  54 

19 

Printing  option  indicator 

IOUT  <  0,  landing  craft 
summaries 

=  1,  landing  craft 
summaries  and 
logic  diagnostics 

>  1,  status  and  final 
summaries  only 


TINVL 

55  -  60 

F6.0 

Simulation  days  between 
status  summaries 

ENDTIM 

61  -  66 

F6.0 

Time  to  end  simulation  (days) 

Cargo  Generation  Card 

J.  (CARG1). 

CARG1  cards  give 

the  number  of 

cargo  generations  to  be  read  (1  to  1000). 

Variable 

Columns 

Format 

Description 

NCARGN 

1-10 

110 

Number  of  cargo  generations 

to  be  input  (1  to  1000) 


Cargo  Generation  Cards  2  (CARG2). 

The  CARG2  cards  describe  cargo  entering  the  simulation,  giving  cargo  type, 
origin  and  destination  ports,  and  frequency  of  generation. 


/ar iable 

Columns 

Format 

Descript i on 

ENDDAY 

1  -  3 

13 

Final  day  of  generation 

STRDAY 

A  -  5 

13 

First  day  of  generation 

FRF.l) 

1  -  8 

12 

Days  between  general  ions 

DISTKl 

u 

11 

Distribution  curve  type 
indicator 

=1 ,  constant 

=2,  uniform 

=3,  normal 

TYPE 

10 

11 

Cargo  type 

ORIG 

LI  -  12 

12 

Origin  port 

DEST 

13  -  14 

12 

Destination  port 

PARI  &  PAR2 

15  -  24 

215 

Parameters,  used  with  distri 
bution  curve,  DISTRI 

Port  Information  Cards  (PRT) . 

PRT  cards  give  the  physical  characteristics  of  each  port,  as  well  as  costing 
factors  for  ships  using  the  facility.  One  card  is  input  for  each  port. 


Variable 

Columns 

Format 

Description 

FAC ( I ) , 

I  =  1,6 

1 

-  18 

613 

Number  of  berths  of  facility 
Type  I 

ITHR 

19 

11 

Theater 

DELAY 

20 

-  25 

F6.0 

Delay  time  (days)  in  port 

ADJPRT 

26 

-  31 

F6.0 

Port  adjustment  factor 

CSTHL 

32 

-  37 

F6.0 

Handling  cost  ($/day)  for 
each  day  ship  is  at  the  port 

DRAFT 

38 

-  43 

F6.0 

Maximum  draft  (ft),  deter¬ 
mines  largest  ship  allowed 
to  berth  at  the  port. 
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Variable 

Columns 

Format 

Description 

PRTNAM 

44  -  55 

A12 

Port  Name 

I0VBCH 

56 

11 

=  1,  port  considered  over- 
the-beach  position  and  will 
involve  over-the-beach  opera¬ 
tions.  Otherwise,  commercial 
operations  are  assumed* 

Ship  Type  1  CARDS  (STYP1) . 

STYP1  cards  give  physical  characteristics  of  classes  of  ships*  These  cards 
also  input  cost  and  delay  factors  associated  with  the  vessel* 


Variable 

Columns 

Format 

Description 

SPEED 

1  - 

8 

F8.1 

Speed  (knots) 

CAPACW 

9  - 

15 

F8.2 

Maximum  load  (long  tons) 

CAPACV 

17  - 

24 

F8.3 

Maximum  volume  (measurement 
tons) 

CSTSEA 

25  - 

32 

F8.4 

Cost  per  day  at  sea  ($/day) 

CSTPRT 

33  - 

40 

F8.5 

Cost  per  day  in  port  ($/day) 

DRAFT 

41  - 

48 

F8.6 

Ship  draft  (ft) 

ADJTRN 

49  - 

56 

F8.7 

Multi-transfer  system  inter¬ 
ference  factor 

NTRNS1  - 
NTRNS6 

57  - 

64 

611 

Transfer  system  type  indicators 
=  1,  ship  equipped  with  corre¬ 
sponding  transfer  system  type 

NTYP 

65  - 

66 

12 

Total  number  of  transfer  system 
types  aboard  ship 

CPRF1  - 
CPRF5 

67  - 

72 

611 

Cargo  type  that  ship  is  able  to 
carry  (cargo  type  input  by  user) 

FAC1 

73 

11 

First  transfer  facility  type 
preference 

FAC  2 

74 

11 

Second  transfer  facility  type 
preference 
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Columns  Format  Description 

75  II  Intertheater/ intratheater  operations 

Indicator 

»  0,  ship  can  change  both  origin  and 
delivery  theaters 

=  1,  ship  can  change  only  delivery 
theater 

=  2,  ship  can  change  neither  origin 
nor  delivery  theaters 


Ship  Type  2  Cards  (STYP2). 

STYP2  cards  are  continuations  of  the  STYP1  cards.  They  give  over-the-beach 


characteristics 

of  the  ship 

type. 

Variable 

Columns 

Format 

Description 

NL  DC 

1-6 

14 

Number  of  landing  craft  required 
(BB  ship)  or  number  of  causeway 
ferries  required  (container  ship  or 
Ro/Ro) 

NTRKS 

7-12 

14 

Number  of  trucks  required  (container 
ship) 

NFKLS 

13  -  18 

14 

Number  of  forklifts  required  (BB  ship) 
or  number  of  shoreside  cranes  required 
(container  ship) 

STYP 

19  -  24 

14 

Ship  operation  type  indicator 

=  1,  Breakbulk 

2,  Container 

3,  Ro/Ro 

4,  LASH  (barge  or  lighter  carrier) 


TTRNC 

25  -  30 

14 

Type  of  transfer  craft 

YNDV 

31  -  36 

14 

Shoreside  unloading  device  indicator 

*1,  Forklift 

2,  Crane 

Variable 

KCHNG 
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Ship  Cards  (SHP). 

SHP  cards  give  ship  type  information,  location,  and  mission  of  each 
Individual  ship  to  be  considered  in  the  simulation. 


Variable 

Columns 

Format 

Description 

TAV 

1-3 

13 

Time  at  which  ship  will  be  available 
(days) 

IPRT 

4-5 

12 

Initial  port  at  which  ship  will  enter 
simulation 

ITN 

6-7 

12 

Itinerary  number,  if  ship  is  to  follow 
an  itinerary;  otherwise,  blank 

OWR 

9 

11 

Operator  of  ship 

“  1,  berth  liner 

2,  long-term  charter 

3,  friendly  foreign 

TYPE 

10  -  11 

12 

Ship  type  number 

DTH 

15 

11 

Delivery  theater 

HOME 

16  -  17 

12 

Home  port 

Card  Modification  Card 

JL  (MODI).* 

MODI  gives 

the  number 

of  ship  types 

to  be  modified. 

Variable 

Columns 

Format 

Description 

NCT 

1-3 

13 

Number  of  ship  types  to  be  modified 

If  equal  zero  or  blank,  M0D2  and  M0D4  are  omitted. 

Ship  Cards  Modification  Card  2  (M0D2). 

M0D2  cards  give  the  ship  types  (1  to  30)  to  be  modified. 


Variable 

Columns 

Format 

Description 

NNTYPE(l)  - 
NNTYPE(30) 

1-60 

3012 

Ship  type  number  of 
ships  to  be  modified 

*The  MOD  cards  allow  the  user  to  change  the  availability  times  for  a 
specified  ship  type. 
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M0D3  gives  ship  type  availability  times  to  be  tested  for  entrance  into  the 
simulation.  This  option  allows  the  modification  of  ship  availability  times  by 
ship  type.  The  ship  availability  time  (TAV)  given  on  the  ship  cards  SHP  is 
changed  by  the  parameters  given  on  the  Ship  Cards  Modification  Card  4. 

Variable  Columns  Format  Description 

NNAVAIL  1-3  13  Availability  time  (days) 

to  test  for  above  ship  types 

Ship  Cards  Modification  Card  4  (M0D4 ) . 

MOD4  gives  the  number  of  days  to  be  subtracted  from  the  ship's  availability 
time  if  it  is  less  than  or  equal  to  NNAVAIL  given  on  M0D3. 


Variable 

Columns 

Format 

Description 

NNNA 

1-3 

13 

Number  of  days  by  which 

availability  time  is  to  be 

decreased 

Initial  Supply  (INSUP). 

INSUP  gives  the  amount  of  each  type  of  cargo  (days  of  supply)  initially 
carried  ashore  by  the  assault  follow-on  echelon. 


Variable 

Columns 

Format 

Description 

XIS(I) 

1-10 

F10.0 

Amount  of  type  I  cargo 
(measurement  tons) 
initially  carried  ashore 
by  the  assault  follow-on 
echelon. 

I  =  1,  6 

CF1  gives  the  number  of  ship-to-shore  transfer  craft,  the  number  of  shoreside 
unloading  facilities  available  to  unload  the  transfer  craft,  and  an  option  for 
receiving  buildup  ashore  data  on  punched  cards  as  program  output*  See  Over-the- 
Beach  Operations,  page  7. 


Variable 

Columns 

Format 

Description 

NTCFT 

1-5 

15 

Number  of  types  of  transfer 
craft  available 

NSUFAC 

6-10 

15 

Number  of  types  of  shoreside 
unloading  facilities  available 

KPNCH 

11  -  15 

KPNCH  *  1,  punch  output  data; 
otherwise,  no  punched  output 

Punch  Identification  Card  (PNCHID) 

• 

PNCHID  gives 

the  identifying 

information 

to  be  punched  onto  cards  containing 

the  buildup  ashore 

output  data. 

Variable 

Columns 

Format 

Description 

IDPNCH 

1-10 

A10 

Identifying  information  to  be 
punched  onto  the  cards  contain¬ 
ing  the  buildup  ashore  output 
data. 

Card  and  Facilities  Card  2  (CF2). 

CF2  gives  the  names  of  the  transfer  craft. 

Variable  Columns  Format  Description 

MCFT(l),  1-50  5(A10)  Name  of  transfer  craft  I 


Craft  and  Facilities  Card  3  (CF3) 


CF3  gives  the  total  number  of  transfer  craft  of  each  type  that  are 
available . 


Variable 


Columns  Format 


Description 


ITCFT(I) 
I  -  1,5 


1-50  1015 


Number  oi  transfer  craft  oi 
type  I  that  art  available 


Craft  and  Facilities  Card  4  (CF4). 

CF4  gives  the  capacity  of  each  type  of  transfer  craft,  in  short  tons. 

Variable  Columns  Format  Description 

XTCFT  (1,1)  1-25  4F5.0  Capacity  of  transfer  craft  type  I 

i  =  J.,5 


Craft  and  Facilities  Card  5  (CF5). 

CF5  gives  the  speed  of  each  type  of  transfer  craft. 


Variable 

XTCFT (1,2) 
I  -  1,5 


Columns  Format  Description 

1  -25  5F5.0  Speed  of  transfer  craft  type  I  in 

knots 


Craft  and  Facilities  Card  6  (CF6). 

CF6  gives  the  total  number  of  each  type  of  shoreside  unloading  facilities. 


Variable 

Columns 

Format 

Description 

ISUFC(I.l) 

I  =  1,5 

1-25 

515 

Total  number  of  shoreside  unload¬ 
ing  facilities  of  type  1  that  are 
available 

Craft  and  Facilities  Card  7  (CF7). 

CF7  gives  the  unloading  rate  for  each  type  of  shoreside  unloading  facility. 


Variable 

Columns 

Format 

Description 

XSUFA(I) 

I  -  1,5 

1-25 

5F5.0 

Unloading  rate  for  shoreside  unload¬ 
ing  facility  type  I  in  measurement 
tons  per  hour 

Craft  and  Facilities 

Card  8 

(CF8) . 

CF8  gives  rates  for  offshore  unloading  facilities  and  delay  times  for  each 
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fl 

type  of  transfer 

craft . 

1 

< 

Variable 

Columns 

Format 

Description 

'i 

IUP(I) 

1-5 

15 

Number  of  offshore  unloading  plat¬ 
forms  available 

.  I 

XUP 

6-10 

F5.0 

Unloading  rate  for  the  offshore 
unloading  platforms  in  measurement 
tons  per  hour 

i 

TBKRTE 

11  -  20 

F10.0 

Unloading  rate  for  a  pipeline 
unloading  a  tanker  in  measure¬ 
ment  tons  per  hour 

DTME(I) 

21  -  35 

3F5.0 

Delay  time  for  transfer  craft  type  I 
in  hours.  This  delay  time  is  added 
to  the  cycle  time  for  each  type  of 
transfer  craft. 

Ship  Pool  Status 

Card  (SPL). 

SPL  gives  cargo  quantity 

criteria 

for  ship  pool  activities,  and  the  distance 

• 

from  ship  to  shore  in  over-the 

-beach  operations. 

■  i 

: 

Variable 

Columns 

Format 

Description 

DOFFSH 

1-5 

F5.0 

Distance  offshore  (nautical  miles) 
for  over-the-beach  operations 

MTSHP 

6-20 

F15.0 

Minimum  measurement  tons  of  cargo 
waiting  at  its  service  ports  before 
a  non-itinerary  ship  can  leave  the 
pool 

MTSHLP 

21  -  35 

F15.0 

Minimum  measurement  tons  of  cargo  re¬ 
quired  for  non-itinerary  ship  to  change 
service  port 
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Iteration  Card  (ITR) . 

ITR  gives  Information  necessary  to  rerun  the  program  using  modified  input 
from  the  previous  run. 


Variable  Columns  Format 

TIMIT  1-10  F10.0 

DECR(1)-DECR(4)  11  -  50  4F10.0 

SHTFLM  51-60  F10.0 


Description 

Time  (in  days)  at  which  short  is  1a  is 
tested  (see  SHTFLM).  It  no  iterations  are 
requested,  TIMIT  is  set  greater  than  the 
simulation  end  time. 

Number  of  craft  to  be  decremented  from  the 
total  number  of  landing  craft  of  the  four 
types  for  each  iteration 

Maximum  shortfall  (amount  of  cargo  built 
up  at  shore)  allowed  for  next  iteration. 

The  number  of  landing  craft  is  adjusted 
until  SHTFLM  is  reached.  If  SHTFLM  <  0, 
DEC1  -  DEC4  are  decremented  from  the  num¬ 
bers  of  the  four  landing  craft  types  and 
the  simulation  is  iterated  until  the  number 
of  landing  craft  necessary  to  meet  the 
cargo  delivery  requirement  is  a  minimum. 
Otherwise,  the  numbers  of  landing  craft 
are  increased  until  the  cargo  requirement 
is  met. 


Productivity  Cards  (PROD). 

PROD  cards  give  the  transfer  rates  for  each  of  the  six  berth  facility  types, 
considering  the  six  transfer  system  types  and  eight  cargo  types.  Thirty-six 
cards  are  input. 

Variable  Columns  Format  Description 

PR0DUC(I , J,K)  1-48  8F6.0  Transfer  rates  (measurement 

tons  per  day)  where  I  repre¬ 
sents  facility  type,  J  repre¬ 
sents  transfer  device,  and  K 
represents  cargo  type 
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Distance  Table  Cards  (DIST) 


D1ST  gives  distances  in  nautical  miles  between  ports.  A  30x30  port  table  is 
read  using  three  cards  per  port. 


Variable 


Columns  Format 


Description 


XDIST(I.J) 
where  J=*l,30 
and  1=1,30 


1-60  10F6.0 


Distance  in  nautical  miles 
between  port  1  and  port  J 


Cargo  Conversion  Factor  Card  (ADJ). 

ADJ  gives  the  values  needed  to  convert  from  measurement  tons  to  short  tons 
for  each  of  the  eight  cargo  types. 


Variable 


Columns  Format 


Description 


ADJCGO(l) 

1-48 

8F6.0 

Conversion  factor  for  each  cargo 

where  1=1,8 

type,  MT/LT 

cargo  types 

Table  2  gives  the  sequence  of  the  input  cards 
deck  A  are  read  from  file  8.  Cards  with  input  deck 


.  Cards  specified  as 
B  are  read  from  file 


input 

5. 


TABLE  2  -  SEQUENCE  OF  INPUT  DATA 


CARD 

IDENTIFICATION 


NUMBER 
OF  CARDS 


CARD  DESCRIPTION 


It  Infirary 
I t in fir ary 

Run  Identification 

General  Information 

Cargo  Generation 

Cargo  Generation 

Port  Information 

Ship  Type  I 

Ship  Type  II 

Ship  Information 

Ship  Cards  Modification  Card  1 

Ship  Cards  Modification  Card  2 

Ship  Cards  Modification  Card  3 

Ship  Cards  Modification  Card  4 

Initial  Supply 

Punch  Identification  Card 

Craft  and  Facilities  Card  I 

Craft  .and  Facilities  Card  2 

Craft  and  Facilities  Card  3 

Craft  and  Facilities  Card  4 

Craft  and  Facilities  Card  S 

Craft  and  Facilities  Card  h 

Craft  and  Facilities  Card  7 

Craft  and  Facilities  Card  8 

Ship  Pool  Status 

Cargo  Delivery  Requirement. 

End  of  Record  Card 

1 1  <•  ra  t  f  •  >n 

Product  i  !  t  v 

Distance  Table 

Cargo  Conversion  Factor 


COMPUTER  SYSTEM/RUN  INFORMATION 


The  TRADES  Model  is  written  in  FORTRAN  IV  and  is  designed  to  run  on  the 
CDC  6600  computer.  The  model  requires  135K  of  core  memory.  The  deck  setup  is 
given  in  Figure  2;  Figure  3  lists  the  control  cards  necessary  to  make  a  computer 
run. 


Figure  2  -  Input  Deck  Setup 
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DESCRIPTION  OF  ROUTINES 

This  section  gives  a  brief  description  of  the  TRADES  routines*  Flowcharts 
and  program  listings  are  also  provided.  Appendix  A  defines  all  major  variables 
used  in  TRADES. 

ROACH 


Activity  Performed:  Initializes  input/output  files  and  begins  execution  of 

simulation 

Type:  Executive  routine 

Common  Used :  None 
Called  by:  n/a 
Stored  by:  n/a 

Subroutines  Called:  RDPARM,  TAKE 

Events  Stored:  None 

Files  used:  Tape  5,  Tape  6,  Tape  8 

Description 

ROACH  initializes  input/output  files  to  be  used  by  the  simulation.  Execution 
of  the  simulation  begins  by  calling  RDPARM  to  input  run  parameters  and  to  place 
initial  events  on  the  event  list.  ROACH  calls  TAKE  to  process  events  on  the  list. 
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RDF  ARM  (HERAT) 

Activity  Performed:  Inputs  necessary  data  and  stores  initial  events 
Type:  Subroutine 

Common  Used:  /CONTRL/,  /SUMY/,  /DONNA/,  /GEN/,  / CARGOG/,  /SHIP/,  /PORT/,  /WAT K/, 
/B/,  / BUSH1 / ,  /BUSH2/,  /PET/ 

Called  by:  PRNTR,  ROACH 
Stored  by:  n/a 
Subroutine  Called:  RNG 

Events  Stored:  AVERAGE,  ENDGAM,  GENCAR,  PRNTR,  SHPARV,  SPOOL 
Files  used:  Tape  5,  Tape  6,  Tape  8 

Description: 

RDPARM  Inputs  all  data  necessary  to  run  the  simulation.  It  starts  the  time/ 
event  processing  by  initializing  control  counters  and  placing  events  to  be 
executed  on  the  event  list.  Entries  or  events  on  the  event  list  are  ordered  by 
occurrence  in  time. 

Since  TRADES  is  capable  of  simulating  many  cases  by  modifying  initial  input 
data  in  the  same  computer  run,  a  second  entry  point,  ITERAT,  is  provided.  ITERAT 
is  called  from  PRNTR.  ITERAT  Initializes  variables  changed  by  the  previous 
Iteration,  stores  necessary  events,  and  executes  the  next  Iteration  using  the 
modified  data. 
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iRDPARM, 
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DATA 
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999  FORMAT  ( lHlt*T  I  PE  (DA  YS>  »,5X,*P(JRT»,5X,»SHIP»  ,5X  ,  ROPARM  393 

1 ’TRANSACTION  DESCRIPTION’)  ROPARM  J9<t 

RE  TUP  A  ROPARM  395 

395  END  ROPARM  396 


AVRAGE 

Activity  Performed:  Keeps  track  of  the  numbers  of  transport  craft  and  cargo 

transfer  facilities  in  use. 

Type:  Event 

Common  Used:  /CONTRL/,  /A/,  /B/,  /GEN/,  /CARGOG/ , /SHIP/ ,  /PORT/,  /PLT/ ,  /WATE/ 

Called  by:  TAKE 

Stored  by:  RDPARM 

Subroutines  Called:  PUT,  MAXO 

Events  Stored:  AVRAGE 

Description: 

AVRAGE  stores  data  on  transport  craft  and  transfer  facilities  to  be  used 
later  by  PRNTR  in  calculating  the  average  numbers  in  use.  It  prints  current 
craft  and  facilities  usage  data  and  writes  these  data  on  a  disk  file.  AVRAGE 
keeps  track  of  the  total  number  of  times  the  upper  limits  (input)  on  the  number 
of  available  craft  and  facilities  are  reached. 
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DISTRI  (TYPE.  PARI.  PAR2 ,  RESULT) 

Activity  Performed:  Computes  a  value,  RESULT,  derived  from  a  specified 

distribution  curve. 

Type :  Sub  rout ine 
Common  Used:  /GEN/ 

Called  by:  GENCAR 
Event  Stored:  none 

Description: 

DISTRI  uses  the  variance  information  given  by  DISTRI's  calling 
event  to  compute  a  value  derived  from  a  specified  distribution  curve. 

The  following  distributions  are  considered  by  DISTRI: 


Distribution  Type 

Parameter  1 

Parameter  2 

Random  Variable 

Constant 

Fixed  value 

Not  used 

Parameter  1 

UniforL 

Upper  limit 

Lower  limit 

Parameter  2  +  RN* 
(parameter  1  - 
parameter  2) 
where  RN  is  a  random 
number  between  zero 

one. 

Normal 

Mean 

Standard 

deviation 
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FORDER  (IARRAY .  NUM,  INDEX.  XRRAY .  IPTR) 

Activity  Performed:  Updates  an  array  by  eliminating  non-essential  entries 

Type:  Subroutine 

Common  Used:  none 

Called  by:  SPOOL 

Events  Stored:  none 

Description: 

FORDER  eliminates  all  unused  locations  of  a  given  array  amd  adjusts  the  item 
entry  counter. 

GENCAR 

Activity  Performed:  Initializes  all  cargo  scheduled  to  enter  a  port  for  overseas 
delivery. 

Type:  Event 

Common  Used:  /CARGOG/,  /GEN/,  /SUMY/ 

Called  by:  TAKE 
Stored  by:  GENCAR,  RDPARM 
Subroutines  Called:  DISTRI,  PUT 
Events  Stored:  GENCAR 

Description: 

GENCAR  generates,  on  a  day-by-day  basis,  cargo  scheduled  to  enter  a  port  for 
overseas  delivery.  Input  specifies  cargo  type  to  be  generated,  origin,  destina¬ 
tion,  and  quantity  variance  information.  Each  cargo  generation  specifies  a  time 
interval  between  generations. 
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LDSH 

Activity  Performed:  Simulates  the  loading  of  cargo. 

Type:  Event 

Common  Used:  /CARGOG/,  /CONTRL/,  /GEN/,  /PORT/,  /SHIP/ 

Called  by:  TAKE 
Stored  by:  RLDSH 
Subroutines  Called:  PUT,  ENDGAM 
Events  Stored:  SHPLV 

Description: 

After  the  cargo  has  been  unloaded,  the  simulation  of  the  loading  cycle  begins. 
The  remaining  ports  on  the  ship's  schedule  are  determined  and  alt  cargo  bound  t  o' 
those  ports  is  loaded  aboard  the  ship. 

LDSH  specifies  the  cargo  to  be  loaded  and  determines  the  time  of  loading,, 
using  available  transfer  systems.  After  loading  is  complete,  LDSH  stores  a  SHPLV 
event.  SHPLV  releases  facilities  no  longer  needed  and  repositions  the  ship  at  its 
next  service  port. 
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NXPRKIDSHIP.  IDPORT ,  NXPORT) 

Activity  Performed:  Determines  next  port  to  be  visited  by  non-ltlnerary  ship. 
Type:  Subroutine 

Called  by:  SHPARV.SHPLV 

Common  Used:  /GEN/,  /CARGOG/,  /SHIP/,  /PORT/ 

Stored  by:  n/a 
Subroutines  Called:  none 
Events  Stored:  none 

Description: 

NXPRT  determines  the  next  port  to  be  serviced  by  a  non-itinerary  ship.  Only 
ports  which  can  physically  receive  the  ship  are  considered.  Selection  is  made 
with  respect  to  quantity  of  cargo  waiting  at  the  port,  quantity  of  cargo  aboard 
ship  to  be  delivered,  and  transit  time  between  ship's  present  port  and  destination 
port. 
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NXPRT 
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SUBROUTINE  NXPRTUOSHIP.IOPORT.NXPOPT)  nxprt 

COMMON  /CONTRC/  TINI  T,  SMTFt  ,OFCR(  4)  ,  XO  1ST  «3«,  3  0  )  ,  PPODUCI  6,  6  ,  *)  NXP  FT 

i  .«cjcgo(s).ntest  nxp  rr 

COMMON  NXPRT 

1  /GEN/  T  IftE  »TE  VENT  «  N£  VENT ,  KE  VENT  <5  [)0  >  , RN , L  VENT  1 «  LVENT  2  «LVENT  3.  NXP  fT 
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PRNTR 


Activity  Performed:  Prints  the  output  generated  by  the  simulation. 

Type :  Event 

Common  Used:  /CONTRL/,  /SUMY/,  /DONNA/,  /A/,  /B/,  /GEN/,  /CARGOG/,  /SHIP/, 

/PORT/,  /PLT/ ,  WATE/,  /BUSH1/,  /BUSH2/ 

Called  by:  TAKE 
Stored  by:  RDPARM 
Subroutines  Called:  n/a 
Events  Stored:  PRNTR 

Description: 

PRNTR  controls  the  printing  of  all  output  generated  by  the  simulation  except 
the  numbers  of  transport  craft  and  unloading  facilities  currently  in  use,  which  are 
printed  by  AVRAGE. 


67 


OVER-THE-BEACH 
PRINT  CARGO 
BUILDUP  ASHORE 


a^Nn#in<ANK(rowNn^^<flkC(ro<4(Vin«iAioso(rcHNn«iAifiNc^oH(\jnitn«ONe 


x  z  x  z  z  z  z 
ix  ft  a.  a;  *  ft  ft 

a  a  a  a.  a.  a.  ft. 


ftftftftftftftftttftft 
>-  ft-  ^  •  r  •  ^  ►-  »_ 

zzzzzzzzzzz 

aftftftftftaftftftft 

a.a.aaftfto.o.a&o. 


#.  CVJ  O  I 

vP  spire 


o  — 

a.  u  * 

ft 

X  * 

ft 

o  w 

•  -4  r>  *4 

* 

to  u. 

z  im  xr 

o 

ft  A 

4  (/> 

IT  •  LA  ft 

• 

» 

•  ft 

(/>  •  *■*  ft 

ft* 

3 

_  4 

«Z 

U.  4 

•T  •  *4 

to 

ft 

sa 

M  —  tfl  ft- 

•  cw  —  w 

z 

ft 

CVJ  — 

'*» 

3  ft 

*  *  »  ft 

• 

to 

Uiz- 

ft  ft* 

(A 

i/»  ft 

•  AJ  »  Ui 

K 

ft 

w  » 

•  Q  *WX 

>  w  • 

to 

CVJ  u. 

O 

V  -> 

LA  «VI  CT  Z 

U. 

K 

ft* 

~  o  Z  «>  3  • 

JHO 

ft*  o 

ft* 

X 

ft  o 

«  •  lO  »H 

ft 

W 

«A  > 

O  IA  •  Z  O  O 

*<  w  2  w  f  < 

•  M  • 

tsi 

O  ft 

ft-  o 

ft  IA 

•  ft  O  4 

» 

ft 

►-*  4 

Z  Z  *4 

ft 

4  3 

4 

z 

4  w 

•  O'  •  H 

l*> 

• 

SC 

*  JZ  O  «lk 

•«oo-R 

“.a  2 

$ 

U.  M 

3  • 

•  a  —  —  o 
—  o  »-  <r  x 

IA  «M  -4  Z 

4  CJ  •  O 

4 

t- 

•  ►* 

nxuinu 

—  >-  UJ 

*- 

u)  a 

#  ft-4  U.  UJ 

•  ft  to  o 

Ui  V 

4 

— .  ft- 

—  «x  o  t/>  —  * 

0  1-0 

X 

ft*  4 

w 

ft  O  ft  *H 

•  •ex 

Z  ft 

■HHQL  • 

:  *  *w  *  it 

,  aU  U 

;ooahu 
mt  u.  <r  o  x 


io®-g 

>w#©3 

t  »  -  u>  i 
il/IO-O 
■  KOUiX 
►OK3  • 
.H4UJU 

>  *  u  z>  4 

'  a  >■  cs  u. 

>  z  »  X  M 
:h»  • is 
.  *o**.x 

)NwO  # 
M*  OIAK 
.  O  O  ~  U. 
INflfWO 

►  *OJ 

)X|JUiO 
'  O  X  3  V 

•  ~  x  o  v 

j  4  *  CD 

>  N  V  *  \ 

«  4  z  x  z  ; 

►  Z  o  l/»  O  I 

i  z  X  U.  r  ; 
»  o  x  u.  r  ; 
:  o  o  g  o  i 

►  "s  o  O  (_)  ' 


O  l/)  ft  o  *  •  u. 

^Z«U  A  —  ZD 

—  »UO  W  O  <  |\j  (/) 

h*  ►-  *  c/i  rg  4  *  z 
z  o  ~  z  *  *  • 

CM  4  *  o  o  H-  W  H- 

>  U.  »A  WDM  JHU. 

UJZeo  —  -4—O.U.O 

x  *®  o  a  »UHOh 


3  *  iro^o 

o  «■»  «»  o  ** 

3  O  »H  •  • 

CD  IP  ••**>* 

ft  O  •  sO  3 

U.  H  -H  fti  3 

<T»  </1  *  s£>  3  OD  N. 


>  U.  •  e 
1  O  -*  AJ  3 

>  X  ^  ^  • 
*  *  **  X  • 
' -  a  3ir> 
’  JTifli 
.  W  UJ  "J  V 

(  a;  k  •  «» 

»  O  —  K 

>  H  »  » 


►  H  S  X 

4  ft  CO  4  ft 

ft  lOlliUi 

V  CD  *  CD  Z  ’ 

MC  W  I  <  ( 

i  x  n  o  ►  : 

.  V  S0*4 
.  .  V  \  I 

►  N-  ~  -.  X 

4  »«||10| 

13  ft  A  3  I 

*  II  3  *  i 

►  II  II 


Z 

^  3 

4  — . 

X  «D 

o 

a 

O  (/> 

x  a  • 

LA 

e 

o 

3  UJ  O 

ft 

K 

o  (A 

</)  O  UJ 

CM 

O 

♦ft 

CVJ  3 

ft  ►* 

3  4* 

4  O  -4 

—4 

ftft 

o 

sO  4 

*  3  ►- 

o 

U. 

t- 

w  ►- 
UJ  (/) 

*-4  Z  Z 

U  3  U 

►- 

o 

o 

►- 

> 

o 

UJ 

o 

■  ►  IA  W  fti 

•  X  *  W 

■  **  *  «•  at 

i  *vj  ~  ivi  e> 
I  w  C3  w  *-i 

i  o  in  x  >c 

■  «  V)  — 
IU.  ►  z  < 

3h«j(~ 
I  (/I  ft  M  < 
>  Nl  ft  ft  O 
WHW 


^  *  r  < 

w  t->  *-4  i/\  i 

or  —  4  : 


H  I-  I-  X 

4  4  «X  cn 

a  o  o  3 


4  M  II  II  II 

H  A  A  <A  . 

n  N  IT  < 

4  -*  •»  w  ' 

h  i/l  1/1  1/1  1/1  I 

4  4  4  4  4* 

O  ft  ft  ft  ft  I 


.  —  X  ♦*■  • 

:  ia  a*  x  <x 

:  *  *i—o 

►3  3  uj  —  • 

I  w  II  VMM  « 

I—  WMH  •  • 

i  or  3  **  i/)  -o  o 

O  Z  o  ft  Mu  hi 

Ift  H0«0  H  •  • 
iZkK*4»hhimih 
—  Z  II  —  w 

lli.OOOHU.U-t 
IHOOO  X  NMH 


SUBROUTINE  PRNTR  74/74  OPT*Q  ROUND**/  TRACE  FTN  4.  8*508  07/23/81  09.54.22  PACE 


0»OHtVjW^tfMflK®«TO*HN«->ir»DNC0*OHWW^ira)K«irOr(N»0^tfM0K®ff'OHfwn^tf'>0KRHro^M«^l 

U'tiMfltftfii,  o\flictfiC»4NKkM4NN^N«o*JB«*®o««0'0'(r(r(r(r(r(ro'iriooooooooOrt^^»irt' 


a?  &  t*  t*  a  or  of 

z  z  z  z  z  z  z 

0  oc  oc  oc  qc  qc  ct 

a  cl  a  a  a  a  a 


z  z 
0  0 
a  a. 


-tk- vttprtf  arororartf 
r  *-  p-  F  »-  p_  A-  ►-  »-  F 


at  uc 

a  a. 


z  z  z  z  z _ 

a  oc  oc  a  at  oc  a: 
a  a.  a  a.  o.  a.  a 


QC 

2 


z  z 

QC  QC 

a  a. 


000000 
a-  f  f  f-  »-  ►- 
z  z  z  z  z  z 

QC  QC  QC  QC  QC  0: 

a  a  a  a.  a  a. 


© 

* 

i 

U i 


X 

© 

i 


s 

QC 

x 

o 


►*  a 
—  3 
©  o 


O  Ui 

o  o 

QC  •€ 

x  f*  a 

0*3 

283 

♦  •  CD 
MW  « 
M  • 

II  <3  *— • 

fl  UJ  - 

Q.  •  0 
3  M  3 
O  ~  O 

ait  a! 


U,  a 
w  N 
©  w 


© 


l/l  M 
AM  * 
X  _ 
♦  V) 

~  oc 
«"•  o 

-  H 
©  -* 
f  f- 
UIK< 
D  II  O 
X  ©  «J 

H  H  It 

F  X  « 
z  c« 

O  3  CD  < 
O  ©  F 


Q- 

3 

© 


ft 

Q 

_J 

CD 

* 

Ui 

X 


Q. 

3 

O 


3 

03 

* 


* 

o 

©  •«* 
QC  • 
X  UJ 

o  a 


x 

©  « 
»  * 
•  «■* 
UJ  > 
QC  _J 

o  0 
i  0 
oo  3 
X  00 


o 

F4 

3  X 

a  u. 

o 

F- 

O 

UJ  o 

QC 

X 

X  00 

QC 

X 

•  © 

x  in 

Ui  IO 

u 

(Vi  Z 

•  Ui 

>  >• 

M 

f-  a 

»  p 

AM  X 

• 

z  x  a 

X  x 

-i  o 

o 

K  F4 

X  ui 

Ui  w 

i3 

MX  P 

•  • 

a 

OC 

u  x 

*  » 

• 

X 

O  Z  0 

O  X 

* 

o 

u.  3  A- 

13  K 

X 

*- 

X  •• 

OC  » 

K 

O  -4  0 

X  » 

*  m 

•k 

© 

Q 

P 

4M 

► 

UJ 

AM 

• 

X 

© 

U 

0+ 

K 

o 

3 

X 

* 

u. 

u. 

F- 

» 

© 

X 

» 

UJ 

O 

II 

4M 

AM 

z 

• 

• 

F 

X 

• 

A 

K 

AM 

X 

o 

AO 

U. 

* 

d 

F 

U. 

00 

a 

a 

» 

u 

X 

X 

4-1 

z 

II 

X 

0 

X 

M 

U. 

X 

U. 

© 

UJ 

♦ 

» 

0 

* 

CM 

tn 

a 

u. 

u. 

II 

z 

o 

*M 

» 

00 

UI 

X 

»-» 

X 

O 

Ui 

& 

0 

01 

(VJ 

UJ 

a 

► 

F 

UI 

X 

*4 

QC 

>■ 

F 

U. 

0 

0 

♦ 

UJ 

F 

X 

X 

» 

4H 

> 

© 

OC 

3 

• 

AM 

in 

© 

o 

z 

AM 

«o 

-i 

in 

UJ 

w 

u 

UJ 

Ui 

-J 

0 

u. 

CL 

» 

LJ 

© 

4^ 

Ui 

o 

3 

X 

** 

w 

© 

m 

O 

Ui 

© 

F 

-i 

w4 

© 

Ui 

QC 

z  F 

AM 

0 

» 

OC 

QC 

© 

X  3 

X 

X 

O 

X 

0  O 

AM 

-M. 

• 

u 

T 

© 

F  F 

-1 

AM  »M  a* 

to 

X 

Z 

u. 

u. 

X 

U  AM 

0 

o  o 

• 

© 

© 

O  0 

UJ 

1  ©  ©  X 

a 

© 

0 

a 

*  UC  M 

F- 

3  X  4* 

Ui 

© 

a 

•  X  x 

^9 

z 

a  0  ♦ 

o 

0  F 

3 

X 
l/)  ► 


3 

0 


in  «•*  x 
-*  •  a  » 

*4  <f»  3  F 

•  Z  O  • 
Ui  •  _J  ■» 
ZHDtI 

*  o  *  u 


o  Ui 

z  z 
a.  m 

Z  F 


0  x 
3  X 
a  oc 

si£ 


?« 
*© 
X  x 

X  © 
•  X 
I 

OXO 
Pw  4*  Ui 
CM  —  QC 
F  *“• 
F  X  3 

z  z  o 

M  0C  Ui 
KOQ 

a.  u.  » 


Ui  -i 

a  & 

►  a 

F-  3 
•  V) 

nxia  # 

MTOS 
M  "p  INI 
F-  00 

F  X  >*  F 

Z  X  X  z 

M  UC  QH 

serf 

Ml 

«v 


0  ©  f- 
I  X  5 
•  Xw 

h  uj  or 
i  r  x  a 


*  <*  x 

I  INI  9 

t£ 

H  * 

QC  x 

a.  ^ 


*  x  o 

t  to  « 


»  n  x  © 

i  i  M  O 

Jd^w 


3  ~  «• 

a  w  « 

-J  •  • 

®  Ui  UJ 

If  Z  X 

X  *  •  *«  F 

©  M  M  IM  X  Z 

X  X  ~  —  <*  to 

uj  o  xu.  it  u  a  of 
xouiHMHua 

e  © 

®  a* 

INI  <S» 


o 

O  F 

S*. 

X  X  X 

O  o  flD 
F  ijF 

I  •>  I  • 

x  **  x  «*  : 

HOflQ 
w  K>  «■»  F) 


0  X 
0-  N 
N  F 
F-  0 
0  F 
F  X 


X  Z  X  z 
UC  »X  QC  M 
oarooc 
u.  a.  u.  a 

e  n 


—  »  Ui  UJ 
FirtH 
<FHH 
X  X  FF 
*  Q  **• 
o  u.  u. 


© 

X 

QC 

Ui 

> 

X  X 

4  •  ©  * 

'  IT  «  P 
»  \  K  X 
IN  X  Ui  © 

f  ©  X  m4 
A  X  P 

•  X  -  I 
0  Ui  0  X 

•  X  0  4-1 
*  F>  — 

X  F 
li)K  « 

X  Z  X 
X  F  OC 
UJ  O'  O  ~ 

«  0.  U.  * 

«4 

0 

e 

n 


3  X 
*  3 
00 
oc 

o  in 
u.  s 

F 
C/»  X 
UJ  F 

o  in 
x 

.  QC  X 

>  UJ  Ui 

•  >  F 

*  x  © 


h  x  u 
mu.4 


ui  in  o 

FF  QC  o 
X  3  F  »  0 
X  Ol  0  X  IT 
QC  X  X  IX 
O  O  J  N  O 
U.  u  X  o 


3  U. 
to  3  A- 

Z  to  u 

•V  X 

*4  II  Cfc 

M  «•  X  U. 
HH  \ 
*-Q.UJ 
QU3F 
in  x  x  3 

in  u.  h  a. 
3  a  x 

©  103  O 

o  v  >-  o 


ste; 


u.  tn  x 

o  a  n, 

a  3  — 

3UN& 

-  -  -  5  P  2  » 

a  U  F-  3  x  3  Ui 

Ht-  <  WOMF 
vZOZ  JOU 
OF»  m  mi  *  U.  F  Z 

UI  <  *1  ll  F  II  <  « 

x  o  n  it  it  o  oc 

o  -j  i 
x  It 

UJ  IN  vio  H 

x  in  it  m  u.  3  uj 

to  II  o  d  u  i/i 


AM  v  U.  Q. 


x  a  1 


H  f  O  h  O  UI  3  UJ 
-  Ki  Q  Isj  N  f 


S 

m 


71 


K 

i* 


Jti-i 


t  '< 


C  * 


K 


*-♦*-4  0 

aZ  0 

a.  u. 


&  * 


3 

UJ 

r 


o 

s 


:  1 


• 

o  c/> 

z 

UJ 

X 

* 

o 

-» 

z  .J 

0 

IX 

44 

u 

X 

0 

0  0 

O 

o 

CO 

X 

X 

3 

z 

*- 

z 

• 

X 

IT 

lx 

ft- 

♦- 

u. 

ft* 

z 

C4 

o 

X 

u 

lx  • 

0 

-c 

a 

lx 

— 1 

9 

0 

0  *- 

Of 

f 

H 

•k 

X 

IO 

Z  3 

o 

>- 

mm 

X 

0 

o 

a 

40 

oo 

0 

o 

44  CO 

CO 

IO 

4f 

M 

0 

ft— 

ix 

z 

0 

CO  • 

mi 

z 

o 

X 

ac  z 

o 

a. 

•  X- 

X 

85 

44 

IO 

X 

UJC* 

-i 

IX 

X  U. 

*4 

♦ 

O 

lx  Of 

Of 

0 

• 

U  X 

• 

U. 

3 

z 

fe 

UJ 

to  a 

UJ 

►4 

X 

x  X 

K 

*- 

o 

IA 

z 

CD 

Of  — 

X 

«x 

x  co 

U 

O 

►4 

44 

3 

0  ► 

z 

C  CO 

o» 

* 

— * 

—  — * 

44  CO  -I 

X 

-J 

ft- 

*- 

£ 

* 

40 

Q i  « 

3 

ft-  • 

X 

ft- 

*4  IV  CO 

CO  ^  X 

X 

a 

44 

ft-  0 

Z 

0  X 

* 

►4 

4* 

w 

44  44 

•  X  H 

K 

UJ 

s 

«D 

<o 

44 

UI 

UJ 

z 

Z  lx 

UJ 

z 

* 

ft-  ft-  ft- 

K  x*  • 

H 

o 

z 

a 

Z 

► 

IV 

ft* 

L> 

lx  * 

lx 

• 

o 

ft* 

o 

u 

u  u 

U  •  X 

X 

z 

ftH 

o 

3 

0 

_  • 

ft- 

0 

O  3 

o 

X  » 

0 

-J 

UJ  o  o  o 

*  X  IX 

* 

*-4 

*- 

lx 

Z 

o 

ft*  ft- 

ft* 

V 

CO 

Q 

Of 

X 

ft- 

ft-  ft- 

x  u  X 

to 

u» 

Z 

* 

44 

ft*  lx 

►- 

V) 

ft- 

ft-  z 

UJ 

* 

ON  N  N 

CO  X  44  X 

44 

5 

« 

o 

M 

X 

0 

44  4 

ft* 

£3 

ft* 

lx  0 

> 

ui 

4* 

4 

x  x 

x*  X  x*  CJ  IV 

o 

z 

X 

ft-  x 

a 

X 

z 

0 

0 

a 

UJ 

44 

— *  44 

»  44  4*  44  CV 

44 

«* 

5 

►4 

O 

X 

X  « 

0 

44 

* 

CD  ft- 

ft* 

*  * 

0 

a. 

QC  4*  <V  CO 

«4#N(J  » 

O  Of 

ft- 

Z 

X 

o 

x  IV 

lx  — 

ft- 

N 

K  0 

-J 

o  * 

X 

3 

4# 

44  44 

•  w  •<* 

CO  O 

3 

ft4 

H 

* 

CV 

44  X 

ft- 

-i 

O 

z 

2K 

at 

fO 
Of  • 

X 

-r 

♦ 

X 

VO 

►4 

c 

tt 

x  ft-  0  {X  io  lx 

IX  lx  CU  3  C-  3  UJ 

V 

«K 

Z 

M 

t. 

UJ 

a 

X 

o 

*-*  lf> 

ft*  ft4 

S  i 

a 

»* 

3 

Ui 

UJ  K 

IV 

X 

• 

O  U  o 

•OZlflltrtQ 

UJ 

W 

« 

»• 

o 

44  X 

0  *- 

X 

o 

es 

a 

IX  lx 

X 

<v 

X 

t 

ft-  ►" 

XHHNM 

»v 

N 

z 

z 

*4 

z 

x- 

z 

X 

X* 

Of 

S 

IO  * 

• 

X 

X  ► 

ON  J  x  ,J 

x  IO 

M 

UJ 

►4 

ft-  X* 

N 

Ik  Of 

3 

UJ  z  * 

UJ 

X 

CO 

X 

X  X 

iv  *  m  4>  if 

uj  a  c« 

UJ 

3 

a 

a- 

*- 

O  x* 

lx  M 

ft* 

© 

0 

Z  <(J> 

c 

• 

*4 

44 

44  44 

x-fi.«48<v0f  3X 

r 

a 

H 

M 

ft* 

Z  x 

0  ft* 

X 

N 

M  U 

(A 

M  V  ► 

0 

Of 

• 

-* 

iv  m 

•  #n-o 

s 

a. 

s 

r 

z 

X 

0 

X  © 

Of  x 

44 

*- 

U 

UJ 

UJ 

ft-  ft-  0 

z 

UJ 

• 

44 

x<  44  a  u  ix  cj 

3 

*- 

•v 

IO 

CO 

z 

44  0 

U  44 

3 

ft 

t 

0 

u 

Sfc 

z 

►4 

•  *  o 

O  x 

0 

X 

1 

ectc 

0  ft-  ♦  0  * 
x  (x  »  U  X 

4lON 
lx  x  X 

V 

z 

►4 

ft-C 

• 

• 

X 

• 

X 

ft*  0 

ft*  X 

ft* 

IX  44 

X 

ft* 

o 

3 

at 0 

at  x  * 

X 

3 

10 

u 

Kg 

X  U  X  3  X  3 

X 

a. 

X 

« 

X4 

X 

X 

X 

44  X 

O  ft-  x 

44 

(/) 

UJ  ^ 

4  o  UJ 

■4 

Z 

3 

z 

-ift-CVtOMtOXDX 

a 

44 

© 

x4 

CV  IT  CD 

-J  0 

X 

Z 

44 

z 

Z 

> 

lx 

• 

•  a  cv  uj 

xl 

• 

• 

z 

z  z 

x  UJ 

CO 

•rl 

CO  x  Jf  H 

of  a  x 

K 

X 

UJ 

rv  o 

<# 

• 

x 

e 

0  UJ 

o  D  IP 

X  Z 

X 

X 

X  x  * 

X 

X 

a  xc  z 

X 

X* 

X 

UJ  ft*  44 

X 

44 

I- 

©  x* 

K 

*♦ 

e 

w4 

N 

u 

UJ 

c 

•HX 

1 

X 

X 

X 

x  * 

•  x  e  x  a 

X 

• 

X 

O 

z 

II 

M 

1 

1 

II 

X  © 

© 

x* 

z 

©  X 

X 

H 

N 

N 

a 

ft-  z 

ZIUiOXUiNZ  JT 

CO 

©  Z 

«o 

•  • 

*  a  I  IV  X  Z  I 

*0  X 

« 

ft-«  ft-  O  «  X 

o 

X  CV 

►U  0  X 

Z  '  44 

M 

3 

© 

x*  x* 

.* 

<3 

ft* 

a 

ft* 

ft* 

3 

O  (j  X  H  »♦  8 

x* 

x* 

wi 

z 

X* 

z 

*♦  H 

Xl  IV  IV  -1  CV  Xl 

CV  *4 

ft4  O 

o 

IV  *4 

K> 

*4  CO 

HO  H 

3  ©  © 

■> 

o 

O 

a* 

x  II 

K 

N 

ft* 

w 

O  l/> 

1-4 

<  WN  « 

INJ 

44 

IV 

44 

(V 

IV 

(V  N 

44  IV  44  *4 

CV 

44 

CV 

*4 

UJ 

M 

CO 

IV 

44 

CV 

—  CV 

44 

CV  44 

z  CO  CO 

CO 

u 

©  ©  ft* 

UJ 

© 

*4 

V 

o 

ft- 

UJ 

ft- 

ft-  z 

»- 

ft- 

ft- 

X  X  ft- 

►- 

ft- 

ft- 

e 

Xk 

ft- 

ft- 

ft"  0 

ft- 

44  44 

O 

44 

a 

44 

If  ©  ft- 

* 

0 

©  *-  o 

O  Of 

II 

ft-  0  ©  ft- 

0 

ft- 

0 

ft- 

X 

ft- 

ft-  ft- 

25255 

*- 

5 

3 

e 

ftH 

ft— 

ft- 

ft- 

2rs 

0  CO  ft-  « 

UJ  UJ  Ui  CO  UJ 

ft- 

N 

UJ  © 

KiMkinb. 

H 

z  UJ 

O  Z  Z  ft-i 

z 

Z 

z 

z 

z 

z 

z 

z  z 

z 

z 

z 

a 

IPMI 

z  z 

z 

Z  IV  z  z 

ft-  ft-  ft-  IA  ft- 

UJft  X  ft  N 

O 

Dawi/i 

Of 

(AOM  *»-H  (XHOHO 

H 

M  M 

V  H  ft  M  Cf  H  If 

M  Of 

z 

44 

H 

ft*  Of 

H 

of  UJ  ft* 

Of 

ft*  « 

ft*  ft*  ft* 

ft* 

(A  JMH 

<Oh  OlflD 
ft*  O  V  O  X  * 

e3 

U  ft*  0 
0. 

of  o  5 

£  u  tv 

I 

O 

lx 

£ 

o 

lx 

fe 

Of 

a 

eg 

2ff£g2 

£ 

£ 

e 

o 

lx 

o 

u 

S 

ft- 

X 

t 

z  o 
a  u 

£ 

o  z  Of 
u  *-*  a 

o  o 
u  o 

££ 

888 

o  z 
o  z 

UJ  CL 
Of  ft* 

e 

z  o 
z  o 

z 

5 

3 

e 

• 

<v 

z 

*0 

«0  e  CV 

Z 

♦0 

0 

0 

© 

IV 

*  © 

© 

©  © 

X 

•4 

X4 

«4  IV  «g 

CV 

CV 

o 

N 

CO 

C»J 

CO  CO 

CO 

x*  © 

or 

IA 

lA 

IV 

IV 

M 

<V 

IV  X  cv 

CV 

Psl 

IA 

IV 

CV 

M 

rv  cv 

IA 

© 

ouou 


n'Tir<i)K«(rorH(Njf)^ir«oK«>croHNK)  «o  <y»  o  ^-i  <\j  hi  *  u\  ^  n.  »  cr 

pk.SfhK^K^cBececc«)e®(ro'(ro,a'a'(ro'a'(roo»oooe3ooo^rt*<»4»4r<H^^H^f\jt\Jr.  r,.  o.  '••»  ^ 


zzzzzzzzzzzz 

attaaaaaaaacaa 

aa.acLaaaaaa.cLO. 


a  a:  a  a  a  a  or 

h  ^  h  r  r  *“ 

z  z  z  z  z  z  z 

tv  Cr  u:  ir  T  d  u 

a  a  a  a  a  a  a 


oxx  » 
a  ®  x 


I 

w  a 

CO 

m 

M 

HI  * 

• 

M 

O 

(J 

CM  UJ 

* 

* 

Ok 

a 

z  *-  o  X 

I- 

m 

UJ 

a 

*-l 

*  CO 

M 

• 

•H 

M 

X 

hi  a 

j’ 

u: 

• 

o 

UJ 

X  » 

w 

U> 

r 

-1  z 

* 

a 

v-i 

« 

a  x 

w  • 

a 

Ok  II 

z 

HI  UJ 

# 

z 

II 

CM 

a 

• 

•«  X 

z 

<*>  ") 

3 

•  z 

o 

3  O  O  CM 

3 

“» 

G 

cr 

»- 

► 

• 

*  WD 

CO 

•  * 

V) 

•  =5 

• 

«t  » 

» 

CO 

• 

♦ 

• 

40 

o 

X 

UJ  * 

z 

a  • 

X 

a  co 

a  co  a  ► 

II 

O 

M 

o 

U- 

G 

Ok 

*-  w 

a  • 

z> 

Ok 

UJ  -5 

Ok 

UJ  *  Ok 

UJ 

X 

X 

— 

UJ 

-5 

UJ 

u> 

M 

■*"< 

G 

* 

•* 

*-  -j 

CO 

H 

•  * 

w 

•0*0 

• 

H-  «0 

•* 

• 

• 

» 

CO 

• 

o 

h 

• 

H  O 

II 

M 

w4  HI 

o<  40  • 

H 

•«  * 

*■> 

H 

•H 

X 

• 

wl 

8 

a  h* 

*  o 

o 

♦ 

t  ~ 

§ 

t  ^  CM 
Z  Z  -oc 

»- 

# 

* 

M 

a 

H 

H* 

•-I 

w 

« 

a 

*>a 

ac 

M 

z  a 

z 

OC 

UJ  • 

X 

z 

Z 

H 

z 

• 

II 

UJ 

M 

3 

*-i 

x  * 

UJ 

w 

UJ  X 

lO 

UJ  D  U 

UJ 

o  o 

* 

O 

UJ 

UJ 

a 

UJ 

fo 

HI 

H 

40 

o 

UJ 

if'  • 

a 

a 

>  (O 

w 

>  CO  o 

>  o 

• 

HI 

H 

> 

a 

> 

HI 

• 

IH 

wl 

a 

z 

z 

x  X 

z 

-1  * 

o> 

M 

-J  »  Hi 

•J 

X 

** 

-J 

X 

-J 

U) 

■** 

a 

« 

*  tr 

o* 

CO 

•  :> 

C5 

•o  • 

a 

c?  ■» 

CT 

H 

M 

• 

3 

• 

• 

Hi 

X 

1— 1 

O 

CO 

-J 

z  » 

o 

z 

«f  CO 

• 

a 

a  a  * 

of 

»  X 

• 

a 

« 

Or 

CO 

a 

X 

«o 

M 

M 

N 

O 

HI  * 

• 

3 

o  *■» 

CM 

it 

OUJ  J 

O 

• 

•  if 

• 

• 

O 

w 

o 

z 

M 

v-l 

a 

H 

• 

> 

o 

1- 

to 

«H  o> 

•  a  «* 

• 

X 

<£  H 

H 

» 

« 

3 

o 

w 

a 

• 

* 

•  UJ 

a 

O 

♦ 

U.  IT 

•1 

-j  •  *- 

5  —  o 

-J 

• 

IT  X 

or 

3  #0 

L5 

-J 

HI 

-» 

a 

to 

a 

• 

H4 

z 

© 

Ul  • 

O  CO 

H 

• 

e  w 

o 

> 

» 

••  • 

o 

CO 

• 

X 

;> 

**• 

O 

c/» 

*  * 

X 

z  3  H- 

m 

• 

M 

z  — 

<h  r 

*>  <*  z 

Z  J  h 

z 

o 

—  o. 

in  a 

♦  z 

M 

Z 

M 

z 

*o 

z 

uj  a 

z 

H  * 

K> 

* 

CO 

tI 

o 

M 

w 

M  fO 

»  3 

• 

UJ  3  HI  »  • 

HI 

X 

♦  CO 

z 

-»  3 

"> 

HI 

If' 

HI 

*i 

A 

CO 

• 

HI 

w 

H-  X 

•  _J 

z 

o 

u> 

z 

H  o 

.»  CO 

h  a 

Wh*C  » 

H 

#  o  >- 

z 

X  CO  to 

K 

G 

I— 

U. 

X 

cr 

z 

M 

z 

o 

j- 

ii  cr 

CM 

X  o 

• 

HC 

H 

Z 

3 

•  o 

Hi  II 

o 

Ii 

II 

•  II  X 

m 

o  « 

fO 

—  II 

HI 

o 

H) 

o 

o 

»- 

G 

l/l 

o 

X- 

o. 

o 

IT  > 

w 

w 

• 

•  Ml 

• 

Ok 

OHf 

v> 

OHZO 

•i 

» 

z  — 

H 

w 

O 

H 

o  *M 

« 

o 

o 

«-l 

tr 

z 

X 

X 

X 

* 

•>  * 

II 

a 

U 

II 

lO 

II 

UJ  » 

x  to 

— 

O  O  UJ  •  x 

H 

UJ 

z 

•a  ^ 

ii 

ol  3  CM 

H 

«3 

H 

UJ 

* 

UJ 

o 

O' 

•H 

o 

o 

II 

• 

II 

II 

J- 

♦  •  x  a 

*  » 

M 

z 

o 

II 

m 

•  tC  UJ 

tr>  * 

■H  (O  (O 

•  —  X 

II 

o 

• 

w4 

o 

HI 

II 

CO  • 

r> 

II 

a 

UJ 

• 

sD 

UJ 

• 

o 

UJ 

HI 

• 

• 

•1 

II 

Hi 

*— 

_ 

K 

a  o  ~ 

HI 

Z  x 

i/>  UJ 

M 

o> 

a 

UJ  **  3 

w  o 

** 

z 

z 

UJ  hi  — 

X 

II 

UJ 

•*•* 

*  UJ 

X 

II  u 

o* 

a 

Z>  ui 

w 

3 

UJ 

vD 

3 

u> 

U) 

M 

*— 

CM 

Wlrth 

z 

HI  CM 

O  o 

o  a 

a 

HI  CO 

X  UJ  z 

H  CO  O 

x 

w 

z  ~  *- 

o* 

a 

H 

»  a 

o 

o*  l/> 

o 

3 

z 

z 

X 

UJ 

Z 

X 

Z 

H 

w 

<M 

o 

o 

w 

Z  Z  «  </)  »  W  II  II3II^HZHI-H4ZIOhi 

ii  z  •  *  *  -  *  uo.  viy  «  ^hi-  x  ^  u  i^o  ' 

quo:  *>x  o  x  a  i  ->  u:  zz«'U£Zaoa*-'CK: 

i/ii/)OxnznoijHii.kiC3(-u.zooioLU.iiil 
z  hu.  it  *  *  o  di-Ha  cw3h  o  u.  m  a  *-»  a  i 

W  H  (\l  W  w4 

CM  CO  ®  « 


HZ<JHXH«IXmIVJ(\JI 
*-3Zcm'-hz«i- 
~  to  a  z  —  iz  — 

iLwoosiLom  *-»  o  i 

M  U.OWHU.  *  »»  Ol 
H  CM  fO  S 

*>  w  -r 


•  i/ihhhhi-.oh^ujuj^-X)  o  a  a 

.M*-|-Hi*-.HHHZHHXXvCri:  X- 
:  -  z  «  a  z  ^  z  »-<  ♦-»  3  3  u.  uj 
iaoaxou.oooaa:cotoou.H  *- 

.  HI  O  HI  OHUOU.IZV10HMW, 

o  o  *-4  40 

W  CM  o  a 

^  1  Co 


O«4*Si*>'OllS'0r'»4>Ot4ift4ISif*>'*l|S*»ft«O»a»ft4M'OO«rs4>»»«9i9«*CSi’'’>*lfStf>K'D9*ft4fS«'’>*(aS4»*»«DC 

NNNMNNMNNMNMItlNNMNMNMMMNNNN^NNMMNNNNMNNNNiMlvNNMMiMMNI 


•  o  «4  m  n  *  us  < 

•  •  m  *  w  to  «o  i 

IMM^N  MN  I 


zzzzzzzzzzzzzzzzzrzzzzzxzzzzxzzzzzzzzzzszzzzxzzzzzzzzzzzz 

Sacaactfzxzszttzacxacxxxtfaixzncxxtfxxizortfxsxxza^wcicxixxarzacxafzaxxzotafaofxoc 

fe  X 


zzzzzzzzzzzzzzzzzzzzz 

5araczttor«aa<ZQca{ko.Qt»:«a*aQt 


n  h  *  * 
—  *  °  o 
a  ui»a 
X  X  **  *« 
y  n  *  n  * 
»-»_»«.< 
H  v  W  N  < 


•  •*•  ft.  a.  1 

»0  •  HW 
MUH  Z  Z« 

•  »e  v»w> 

*  -  •  *  z  l 

O)  M  ~  *■’  • 

Z  w  *>  fi  ft  : 
4  *  »OOl 

►*  m  ft*  x  *  ; 

M  —  w  M  N 

-  a  a - - 

(OHHlIft, 

i  £  z  ft  i  i 

U)v  v  ItlUt 
t-  U.  U.  fr-  t«  » 


x  m  o.  x  a.  v)  a  i 

Hro-yjio'i 
Zhft»-3IAUM  i 
I  V)  *  H  V  M  X  ►*  I 
UZft  **►*'- 

m  m  n  o>  ui  x  z  x  x  : 
z  ft  ft  a  wowo i 

ujza  u  x  x  : 

UiQVIZOftOftOI 
OHHUftHlLMy  I 


*4  o 

H  Z 

-J  M  CO 

Ui  X  »- 

o  K  »- 

«c  z  X  z 

O  Uj  X  Ui 

•  x  z  .J 

O  ft-  z  M  « 

y  o  h  >  > 

•  W  Ui  HW  J 

—  ©  X  ©  *  Ui  « 

a  ui  ui  3  a  ~  *  t 

m  a  uj  -j  u>  _  s 

•  ►  ft  *0«  4>  in  ' 

ft  K>  U*  #  >  ft*  «i  **  SO  - 

H  H  H  4  ft  »  I 

ftft  ft  »ft  »zz 

X  ft*  HUNhOlil^l 

h</»h9IKwzkhh( 

H  W  W  *«  O  \  j 

ft  yay  ft  wft  zk  •» 
:  H4  z  x  z  m  z  m  <  m  * 

)  I  H  liJ  M  X  H  X  U  O  N  I 

IMC^ZMCMH J«< 
IHftHftHKKpli0>l 
zy  N  UZliiSft  R  N  I 
ft  »-  N  CHN( 

luyMy  v)w>ozzj 

.hOZOIAQMUUIuI 


ar 

» 

tt 

ft 

•1 

X 

o 

3 

o 

Z 

X 

ft 

_i 

ft 

0* 

<4 

X 

(Si 

ft* 

(IS 

• 

o 

ft 

O 

ft* 

ft 

w 

ft 

f 

~  U. 

ft 

z 

(M  • 

X 

X 

•  ft 

ITS 

o 

©  •» 

X 

ft 

U- 

X 

ft 

—  •  so 

* 

A  «•» 

<Uft  X 

M 

XX  X 

•  ft  ** 

O’  ft  X 

O*  X 

ft 

•  -J  ft 

UZ  VI 

ft 

♦  «  V- 

ft« 

N 

X  z  z 

ft  «x  -» 

HO  *W 

H  04 

Ui 

X  ►*  ft  J 

O  z 

CO 

SO  ft-  CO  X 

ft-  X  O 

3 

ft  O  3  » 

Ui  t  H 

Z»-  ft* 

Ui  »- 

so 

w*  40 

JVIQ 

X 

ft  ft  I-  o 

ft  V)  Z 

w 

X  X  V)  UJ  a 

Ui 

X 

(IS  ^  ft  ft  (Si 

Q  Z  U. 

so 

X  ft  •  •  • 

Ui  M  O 

X  ft  x  X  OS 

^  O 

U- 

X  o'  tfi  ft  Ift 

-J  «  (£ 

o 

ft  Ui  ft  ft  ft 

I  M  ft*  (O  H 

«  —  ~  X  Z  ** 
■  U  U.  3  Z  U. 

•  R-  *  ft  »-  ►* 


04  4 

IO  Ui  fc 

rwo 
>  ^  ft*  M  ft  ft  V- 
»  V)  CO  CO  ♦  »  ft 
I  Z  z  *  X  X  ft 
Z  ft*  ►-  ®  o  x 
f  HWWHHtr 


>  4>  X  «0  X  X  X 

►  csj  r«j  «m  •*»*** 

V 

I 

I  H  1“  H  4  4  4  H  i 

•  Z  z  Z  X  X  x  CO  C 

IHMHtftft  Z  2 
iZftftOOpti 
!  ft  ft  ft  ftlL  ft  h  i 


Ui  ft.  ft  ft  X  • 
a C  Z40(M#  • 

UI  3  Ui  Ui  UI  •  w 
#  »•  M  J  #  Jft  w 

5.0  Ui  H*  •  O  M  U. 

►4  «  ft  X  ►  ft)  » 
X  ft  »4U  »  • 

•  a.  x  *  4  u>  # 

JRHil  »  «  -I 

4t  X  •  Ui  X  •  X 

&S?tiS5  6 

l-J  •«!-*  *  H* 

ft  OKUI  H«  * 
•  >>IAZ  N  «  •> 

X  O  •  ft  KO^HK 

IT  ft*  •  O  X  •  **  .# 
X  ►  X  X  »ft  XXX 
►  X  «  *4  *  •  ft  •*  3  X 
1  w  Ui  w  *  «  X  **  <✓)  ** 

l«H«uZ«4ft4 

I  X  ^  X  CO  ft  <V)  X  >  x 

ft  Wft  4  •  a  4(t 

O  O  O  _J  X  O  (/)  o 

i  U  u.  •  so  ft  w  ft 

ft*  ft*  «SJ  W 

»r  <r  e  «ft 

M  &  <h  ft 


uu  o  U 


o  o  u  o 


74 


76 


SUBROUTINE  prnTR  74/  74  OPT  *8  ROUNU=»/  TRACE  FTN  A.MHt  87/23/81  89.S4.22  PAGE 


•4i\i  n  <r  <o 


o,o*4NniirjK«oiaH(\jn#^^N«0tOf4(gir)/ir«k«(roHNn« 


| 


|ft(AKC9««4Mn 


- ZZZZZZZ2 

QtftKQLlXatatQt 


zzzzzzzzzz _ 

ataratatatatatocotatacara 


_ _ :  z  z  z  z  z  z  ^ _ _ 

QtatotatCKQtatKQtotttQtatatatQtatQtotQtotatotat 


zzzzzz 
at  5  a  a  at  at 


t/i  t/i  i 

o  o 


VI  VI 

o  o 


OUlA 
to  A—  * 


a* 

u. 

p 

X 

to 


or 

uj 


X 

to 

• 

eg 


cr 

a* 

o* 


3 

3 

*  H 

ro  u 

Z 

H 

> 

to 

to 

ro  u. 

«*>  p 

o 

a 

41 

p 

► 

•  » 

«■» 

10  >£ 

a 

Ol 

*  «■* 

cr  x 

* 

o  <r 

CJ 

X 

pC 

CM 

U.  O' 

to  ro 

4 

w 

to 

V) 

*  p 

o 

to  * 

O 

tr 

-i 

to 

a  u 

a 

X  * 

o 

p  * 

o 

3 

to 

» 

4 

3  to 

to 

to  >- 

o 

p*  X 

a 

to 

to 

z 

si 

o  u 

-J 

•  at 

«c 

k>  at 

< 

«« 

*- 

to 

• 

to 

X  z 

Z 

CM  IK 

u 

at 

o 

4 

4> 

U 

•4 

to 

to 

Z 

w  P 

3 

•  UJ 

O 

« 

«K 

to  O 

• 

to 

4^  p 

» 

o  u 

a 

4  O  u- 

a 

o 

4> 

S5 

to 

H* 

o 

O 

to 

p«  A 

UJ 

p*  to 

UJ 

fi 

•  ro 

*- 

UJ 

H 

X  PC 

CM 

u.  ro  >- 

CM  .* 

o  ► 

fM 

94 

c  o  ® 

o  o 

• 

-J 

O'  «-> 

«» 

*v< 

to  *p 

o  «  « 

s 

o 

0+ 

e  h  « 

O 

»- 

o 

UJ 

> 

p  ► 

► 

X  O  X 

X  U 

Of  »  z 

4 

z 

e> 

#p 

X 

z 

*  p 

p 

O  H  lil 

Uj  to 

«  UJ 

UJ 

o 

o  o  o 

44 

o 

a 

»4 

to 

to 

_  p» 

a 

«4  JU) 

Z  -J 

on  v) 

z 

at 

a 

a 

X 

«— 

p 

to 

to 

JA  PC 

CM 

*  Z  3 

»-«  z 

.  .  w  3 

»-» 

5> 

UJ 

u  z 

-J 

-i 

3 

• 

Of  'p 

■— > 

O  3< 

«*  3 

•« 

Z  O  *~  o 

M 

at  < 

•— 

u 

u 

3 

to 

Qt 

2  »- 

t 

T*  -W 

fc-r 

auu 

at 

H  U  h  O 

CJ  J 

e 

1— 

K 

K 

O 

s! 

o  U 

X  J  # 

z 

CD 

H 

U 

►4 

• 

X 

X 

to 

to 

• 

X  u 

U 

♦  W  • 

o  # 

©  z  * 

o 

o 

z 

pIp 

at 

X 

O  (/) 

v> 

U 

pC 

to 

Z 

W  X 

X 

X  -»  X 

U 

*34 

o 

z 

o 

h  m  a 

u 

«"•.  «X 

• 

• 

• 

pC 

a 

O 

CM 

• 

to 

»  z 

Z 

CM  ►  90 

—  ► 

~  to  M 

< 

o 

•  r-  • 

^  »-t 

e  x 

UJ 

tB 

►“ 

♦ 

p 

fc 

p 

o 

to 

p  p 

♦ 

4  • 

4 

4 

4 

O  •  K 

it 

a  4 

o 

to 

pC 

pC 

O 

to 

UJ 

X  * 

p 

i  *  • 

•  p 

•»  P  1 

p 

p 

p 

UJ  UJ  O  *9 

o  p 

r- 

• 

• 

• 

to  to 

II 

M 

* 

II 

M 

« 

*  PC  O 

■*  O 

X  CM  X 

X 

X  CM 

X  90  X 

e 

X 

CM 

X 

J1 

X 

•  z  • 

II 

pc 

K  X 

«> 

X 

u 

K 

u 

O  UJ 

3 

0+ 

to 

►4 

•— 

ar 

Pi 

X 

UJ 

X  C3 

CJ 

pa  e  «-< 

a 

*C  o 

u 

Z  ©  PH 

4H 

wt 

•“»  CM 

pC 

r-  •  r- 

H 

p 

►  if> 

uO 

-J 

(/) 

to 

c<n 

to 

to 

3 

3 

to 

M 

to 

UJ 

UJ 

to 

*4 

• 

—  O’ 

O' 

—  <r 

a 

O' 

—  O'  O' 

—  a*  *- 

O' 

w 

O' 

cr 

to  UJ  U) 

»-♦ 

vO  w 

u 

»- 

to 

to 

Z 

Z 

3 

pC 

O' 

w 

to 

3 

z 

p 

UJ 

to 

to  to 

• 

to 

►-  to 

8- 

►- 

c- 

UJ  K  UJ  N 

•p 

"p  »- 

O  f- 

o 

O 

M 

II 

to 

o 

N 

o* 

a 

QHZ 

Z 

UJ  to 

X 

4  »- 

to 

4  ♦-  4 

O’ 

to 

4  to 

w* 

<  *-  « 

K 

« 

e- 

«* 

K 

« 

N 

L 

U  < 

K 

X 

*-  o  U 

-J 

to 

to 

U 

to 

H 

O' 

X 

Z 

at  m 

>  <  to 

X  z 

Z 

x  z  X  u. 

z 

Z  Z 

z 

X  z  z 

z 

X 

z 

X  Z 

X 

X  1-  Z 

K 

K  X 

CO 

z 

*- 

z  U  V) 

to 

at 

(/) 

O' 

to  M 

-1  3  to 

-1  X  to 

a  *-* 

to 

a  to  a 

p 

H 

a  ►-* 

H 

ft  to  u 

►«  at 

*-< 

z 

at 

%p  w  p 

O 

►4  at 

O 

p 

«p 

to 

UJ 

u 

o  u 

X  z 

-1 

to 

Z 

(2 

pp 

o  a 

Of 

O  Qt  O  X 

0t 

g>  at 

at  o  at  o 

gt 

o 

ot 

o 

ot 

ou.uu.oc- 

at  o  o  u 

u  o 

u 

X 

to 

o 

o 

o 

£ 

o 

3 

K 

4UOU.OII. 

u  a 

a 

u  a  u 

<o  a 

u  a 

a 

u  a  u 

a 

u 

a 

u 

a 

w 

HWHO 

z  u 

M  M  u  H  Irt  2 

o 

-J 

o 

to 

O  Ot  O  H  U  M 

m 

o  ^ 

•# 

40  «5 

1 

CM 

o 

CM 

u 

•4 

r> 

pc 

to 

to 

to  * 

O' 

s 

O' 

tr 

Cr-  o 

o 

o  o 

p* 

P9 

CD 

K 

O 

to 

« 

» 

to 

to 

to 

O' 

O' 

m 

cr  tr 

cr 

<r  cr 

O' 

O' 

O' 

® 

K. 

Ci 

e 

to 

to 

to 

to 

to 

O' 

« 

O' 

.  pC  a.  X 
:  •-  of 
IXJ3 
*  uj  «i  »- 
I  >  4  U 
■JO* 


o  IT 

cm  cm 

O  •# 


IT 

n 


77 


EHC 


PUT 


Activity  Performed:  Places  events  on  event  list  in  order  of  encounter. 

Type:  Subroutine 
Common  Used:  /GEN/ 

Called  by:  AVRAGE,  GENCAR,  LDSH,  PRNTR,  RDPARM,  RLDSH,  SHPARV,  SRPLV,  SPOOL, 
UNLDSH 

Subroutines  Called:  none 
Events  Stored:  none 

Description: 

PUT  enters  an  event  on  the  event  list,  KEVENT,  and  orders  the  list  according 
to  increasing  event  execution  times. 
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NEVENT  >500 
? 


WRITE 

"ERROR  EVENT 
LIST  OVERFLOW 


NO 


RLDSH 


Activity  Performed:  Simulates  the  unloading  of  cargo  at  commercial  ports. 

Type:  Event 

Common  Used:  /CARGOG/,  /CONTRL/,  /GEN/,  /PORT/,  /SHIP/ 

Called  by:  TAKE 
Stored  by:  SHPARV 
Subroutines  Called:  ENDGAM,  PUT 
Events  Stored:  LDSH 

Description: 

RLDSH  simulates  cargo  unloading  at  a  commercial  port.  It  assigns  berth/ship 
transfer  systems  suitable  for  cargo  movement.  When  unloading  is  completed,  a  LDSH 
event  is  stored  to  perform  loading  operations. 
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RNGl(RNC) 

Activity  Performed:  Computes  a  random  number  between  zero  and  one. 

Type:  Subroutine 
Common  Used:  /GEN/ 

Called  by:  DISTRI,  RDPARM 
Stored  by:  n/a 
Routines  Called:  none 
Events  Stored:  none 

Description: 

RNG1,  (RNG)  computes  a  random  number  between  0  and  1.  This  random  number 
is  used  to  compute  a  dependent  variable  from  a  specified  distribution  curve. 
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SHPARV 


Activity  Performed:  Assigns  an  incoming  ship  to  an  appropriate  berth. 

Type:  Event 

Common  Used:  /CARGOG/,  /CONTRL/,  /GEN/,  /PORT/,  /SHIP/,  /SUMY/ 

Called  by:  TAKE 

Stored  by:  RDPARM,  SHPLV,  SPOOL 

Subroutines  Called:  ENDGAM,  PUT 

Events  Stored:  RLDSH,  SHPLV,  UNLDSH 

Description: 

SHPARV  assigns  a  ship  to  a  berth  according  to  the  berth  types  preferred  by 
the  ship.  Only  berths  immediately  available  at  the  time  the  ship  enters  the  port 
are  considered.  If  no  appropriate  berth  is  available,  the  ship  enters  a  berth 
queue  until  a  preferred  berth  type  is  free.  All  berths  accept  ships  for  cargo 
transfer  on  a  first  come,  first-served  basis. 
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SHPLV 


Activity  Performed:  Releases  all  berth  facilities  used  by  a  departing 

ship. 

Type:  Event 

Common  Used:  /CARGOG/,  /CONTRL/,  /GEN/,  /PORT/,  /SHIP/,  /SUMY/ 

Called  by:  TAKE 
Stored  by:  LUSH,  UNLDSH 
Subroutines  Called:  NXPRT,  PUT,  UPDTE 
Events  Stored:  SHPARV 

Description: 

SHPLV  frees  all  berth  facilities  used  by  the  departing  ship  and  determines 
the  next  port  and  the  time  necessary  to  sail  to  the  next  port.  It  determines 
whether  any  other  ship  is  waiting  to  use  the  berth,  removes  the  next  waiting  ship 
in  the  berth  queue  from  the  queue,  and  stores  a  SHPARV  event  for  that  ship. 
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SPOOL 


Activity  Performed:  Reactivates  unused  ships  into  service. 

Type:  Event 

Common  Used:  /CARGOG/,  /CONTRL/,  /GEN/,  /PORT/,  /SHIP/,  /SUMY/ 

Called  by:  TAKE 

Stored  by:  RDPARM,  SHPARV,  SPOOL 
Subroutines  Called:  FORDER,  PUT 
Events  Stored:  SPOOL,  SHPARV 

Description: 

SPOOL  activates  the  ships  assigned  to  the  ship  pool  and  positions  them  at 
ports  having  excess  cargo.  After  all  ports  with  excess  cargo  have  been  deter¬ 
mined,  ships  which  satisfy  the  transfer  and  berthing  criteria  are  assigned 
to  service  ports  with  backlogged  cargo.  SPOOL  stores  a  SHPARV  event  for  each 
ship  scheduled  to  leave  the  ship  pool. 
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TAKE 

Activity  Performed:  Selects  the  next  event  to  be  executed  with  respect 

to  the  current  simulation  time. 

Type:  Subroutine 

Common  Used:  /CONTRL/,  /GEN/ 

Called  by:  Main  program  ROACH 
Stored  by:  n/a 

Subroutines  Called:  All  events 
Events  Stored:  none 

Description: 

TAKE  removes  an  event  from  the  event  list  and  calls  it  into  execution. 
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UNLDSH 


Activity  Performed:  Unloads  the  cargo  from  each  incoming  ship  at  an  over-the- 
beach  port. 

Type :  Event 

Common  Used:  /CONTRL/,  /A/,  /GEN/,  /CARGOG/,  /SHIP/,  /PORT/,  /WATE/,  /BUSH1/ 

Called  by:  TAKE 

Stored  by:  SHPARV 

Subroutines  Called:  PUT 

Events  Stored:  SHPLV 

Description: 

UNLDSH  controls  the  unloading  of  ship  cargo  at  the  over-the-beach  destination 
port.  It  checks  on  the  availability  of  transport  craft  and  unloading  facilities. 
If  facilities  are  available,  the  ship  is  unloaded.  Otherwise,  the  ship  is  put 
into  a  queue  until  such  time  as  craft  and  unloading  facilities  are  available. 

UNLDSH  also  updates  the  numbers  of  transport  craft  and  unloading  facilities 
currently  in  use  by  subtracting  the  number  needed  to  unload  the  newly  arrived 
ship  from  the  number  previously  available. 


COMPUTE  TOTAL  AMOUNT 
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UPDTE 


Activity  Performed:  Keeps  track  of  amount  of  cargo  unloaded  and  updates  numbers 

of  craft  and  facilities  currently  In  use. 

Type:  Subroutine 

Common  Used:  /CONTRL/,  /A/,  /SUMY/,  /GEN/,  /CARGOG/,  /SHIP/,  /PORT/,  /WATE/ 

Called  by:  SHPLV 

Stored  by;  n/a 

Subroutines  Called:  n/a 

Events  Stored:  n/a 

Description: 

UPDTE  updates  the  numbers  of  transport  craft  and  unloading  facilities 
currently  in  use  by  adding  the  number  needed  to  unload  the  departing  ship  to  the 
number  previously  available. 

UPDTE  also  tabulates,  in  measurement  tons,  cargo  unloaded  by  all  ships,  both 
by  types  of  cargo  and  by  total  amount. 
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APPENDIX 

LIST  OF  COMMON  VARIABLES 


VARIABLE 

COMMON 

MODE 

■  I  - 

Input 

-  S  - 

Storage 

■  A  • 

Packed 

AA 

PLT 

S 

ADJCG0(8) 

CONTRL 

I 

ATTCS(4) 

BUSH1 

s 

CARGC (  2  ) 

CARGOG 

I 

CARGEN(IOOO) 

CARGOG 

I 

CARGO (1000) 

CARGOG 

s 

DECR(4) 

CONTRL 

I 

DOFFSH 

A 

I 

DTME ( 3 ) 

BUSH1 

I 

IAVAL(50) 

SUMY 

s 

IAVRGE 

B 

s 

ICFT(4) 

CONTRL 

s 

IDSCGO(40, 2) 

A 

s 

IFAC(30,10) 

PORT 

I 

IGEN 

GEN 

I 

I  OUT 

GEN 

I 

IPLT 

PLT 

s 

IQUEUE(1000, 

2)  PORT 

s* 

ISD(50,3) 

SUMY 

s 

ISMPRT(30,6) 

SUMY 

s 

DESCRIPTION 


Craft/facilities  current  status 
check  indicator 

Cargo  type  conversion  factor  (MT/LT) 

Average  number  of  times  each  type  of 
craft  comes  to  shore 

Cargo  necessary  for  selection  of 
next  port  (MT) 

Cargo  generation  information 

Cargo  in  transit  accumulators 

Number  of  landing  craft  to  be 
decremented 

Distance  offshore  at  which  offloading 
of  ships  occurs 

Delay  time  to  be  added  to  cycle  time 
for  each  transfer  craft 

Total  ship  volume  available  (MT) 

Internal  counter  f;.'  number  of  times 
subroutine  AVRAGE  has  been  called 
since  last  status  summary  printout 

Number  of  each  type  of  landing  craft 

Cargo  to  be  unloaded  from  ships 

Number  of  each  type  of  facility  at 
each  port 

Cargo  generation  deck  indicator 

Output  option  indicator 

Number  of  times  craft  and  facilities 
usage  data  are  output  on  TAPE30 

Berth  facility  queue  information 

Cargo  movement  summary  table 

Port  facilities  delay  times 
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VARIABLE 

COMMON 

MODE 

DESCRIPTION 

ISUFAC(2,2) 

WATE 

S 

Number  of  shoreside  unloading 
facilities  of  type  I  currently  for 
ISUFAC(I ,2) 

ITCFT (4,2) 

WATE 

S 

Number  of  transfer  craft  currently 
in  use 

ITIN (10,10) 

SHIP 

I 

Ship  itineraries 

IUP(2 ) 

WATE 

S 

Number  of  unloading  platforms  cur¬ 
rently  in  use 

IUPCFT(4) 

WATE 

s 

Number  of  times  maximum  number  of 
transfer  craft  is  reached 

IUPSUF(2) 

WATE 

s 

Number  of  times  maximum  shoreside 
unloading  facilities  used 

IUPUP 

WATE 

s 

Number  of  times  upper  limit  of 
maximum  unloading  platforms  used 

JCARGO (1000,3) 

CARGOG 

s* 

Cargo  aboard  ship  information 

KARGEN (1000,3) 

CARGOG 

I* 

Cargo  generation  information 

KEVENT(500) 

GEN 

s* 

Event  list 

KPNCH 

BUSH2 

I 

Option  for  punching  build  up  ashore 
statistics 

KQUEUE(50) 

A 

s 

Table  of  ships  waiting  to  be  unloaded 

KSUFAC(2 ) 

WATE 

s 

Total  number  of  shoreside  unloading 
facilities 

KTCFT(4) 

WATE 

s 

Total  number  of  transfer  craft 

KUP 

WATE 

s 

Total  number  of  unloading  platforms 

KY (110,7) 

PLT 

s 

Number  of  transfer  craft  and  unloading 
facilities  currently  in  use 

LDCRF(4 ) 

CONTRL 

s 

Current  number  of  landing  craft 
(by  type) 

EVENT 1 

GEN 

s 

Event  list  parameter 

LVENT2 

GEN 

s 

Event  list  parameter 

EVENT 3 

GEN 

s 

Event  list  parameter 

MQUE(5 ) 

A 

s 

Number  of  ships  currently  in  unloading 
queue 

MTEST 

CONRL 

s 

Optimum  iteration  check 

MTSHIP(30, 22 ) 

SHIP 

I 

Ship  type  information 

MTSHP2(30, 10) 

SHIP 

I 

Ship  type  information 

NCARGN 

CARGOG 

I 

Number  of  cargo  generations 

APPENDIX  (Con't) 


VARIABLE 

COMMON 

MODE 

DESCRIPTION 

NEVENT 

GEN 

S 

Number  of  event  list  entries 

NFACT 

GEN 

I 

Number  of  berthing  facility  types 

NITIN 

GEN 

I 

Number  of  ship  itineraries 

NMFT(5) 

BUSH2 

I 

Names  of  transfer  craft  1-5 

NNPORT 

GEN 

I 

Number  of  ports 

NPORT(30,6) 

PORT 

I* 

Port  Information 

NQUEUE 

PORT 

S 

Number  of  entries  on  facility  queue 
list 

NSCCiO 

CARGOG 

s 

Number  of  entries  of  cargo  aboard  ship 

NSD 

SUMY 

s 

Day  of  summary  Information 

NSE(30,30) 

PORT 

s 

Number  of  ships  of  each  type 
scheduled  to  enter  port 

NSHIP(400,15) 

SHIP 

I 

individual  ship  information 

NSHIPS 

GEN 

I 

Number  of  ships  in  simulation 

NSTYP 

GEN 

I 

Number  of  ship  types 

NSUFAC 

WATE 

I 

Number  of  available  shoreside  unload¬ 
ing  facilities 

NTCFT 

WATE 

I 

Number  of  available  transfer  craft 

NTEST 

CONTRL 

s 

Number  of  iterations 

PERC1(50) 

SUMY 

I 

Fractional  portion  of  ship's  total 
volume  to  be  used  for  cargo 

PRODUC (6,6,8) 

CONTRL 

I 

Productivity  rates  (MT/day) 

PUTL 

GEN 

I 

Minimum  percentage  of  ship  volume  in 
use  before  ship  is  allowed  leave  port 

RN 

GEN 

s 

Random  number 

SHTFL 

CONTRL 

s 

Last  computed  shortfall 

SHTFLM 

CONTRL 

I 

Maximum  shortfall  allowed 

SUMPRT(30,10) 

SUMY 

s 

Port  information  summary  table 

SUMSHP(30,I0) 

SUMY 

s 

Ship  information  summary  table 

TCARGO 

A 

s 

Total  amount  of  cargo  unloaded 

TEVENT 

GEN 

s 

Time  of  event 

TIME 

GEN 

s 

Simulation  time 

TIMIT 

CONTRL 

I 

Time  check  for  (SHTFLM)  shortfall 

TIMSAV 

CONTRL 

s 

Time  interval  between  summary  outputs 
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VARIABLE 

COMMON 

MODE 

TINVL 

GEN 

I 

TNKRTE 

WATE 

I 

TTCS(4) 

BUS  HI 

S 

TUNLTC(4) 

BUSH1 

S 

UNLTC(4) 

BUSH1 

S 

UTM(50) 

SUMY 

s 

XAX(llO) 

PLT 

s 

XCARGO ( ° ) 

A 

I 

XDIST(30,30) 

CONTRL 

I 

XQUEUE(50) 

A 

S 

XSUFAC(2) 

WATE 

I 

XTCFT(4, 2) 

WATE 

I 

XUP 

WATE 

I 

YCARGO(40,9) 

A 

S 

ZCARGO (9 ) 

A 

S 

APPENDIX  (Con't) 

DESCRIPTION 

Summary  time  interval 

Tanker  unloading  rate  (barrels/day) 

Total  number  of  times  each  type  of 
transfer  craft  comes  ashore 

Total  (aggregate)  unloading  time 
for  all  craft  of  a  given  type 

Unloading  time  for  one  craft  of  a 
given  type 

Ship  utilization  summary  table 

Time  of  craft  and  facilities  usage 
summary 

Amount  of  each  type  of  cargo  on  ship 
(MT's) 

Table  of  Distance  between  ports 
(nautical  miles) 

Time  ship  enters  unloading  queue 

Unloading  rate  for  shoreside  unload¬ 
ing  facility  units 

Speed  of  transfer  craft  (knots) 

Unloading  rate  of  unloading  platform 
(MT/day) 

Cargo  unloaded  from  ships  in  queue 

Amount  of  each  type  of  cargo  unloaded 
from  a  given  ship  (MT/day) . 
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